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About this book 


This book is packed with tips, hints and 
tricks to help you write better programs 
in BASIC. There are tricks to make your 
programs run faster, ideas for ways to 
save memory space and ways to lock 
your programs so that other people 
cannot run them. 
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The first part of the book shows you 
howto plan and write clear, well- 
organized programs which are easy to 
debug. Then there are detailed 
instructions which show you how to use 
B ASIC to create quite complicated 
programming techniques, 



The book also contains lots of short 
routines which you can build into your 
own programs. There are routines to 
decorate the screen display and create 
professional-looking menus, for 
example, and lots of routines for 
packing data into the memory to save 
memory space. 



If you a re a beginner you wi II find it 
helpfu I to read a beginner's book, 
such as the Usborne Introduction 
to Computer Programming, 
before you use this book. 


On pages 35-42 there is a long 
program call ed Flip- file which uses 
many of the tricks and routines 
described in this book. Flip- file is a 
simulation of a card index file in which 
you can store names and ad dresses or 
other information. Alongside the 
program there are detailed 
explanations of how it works, so you 
can study the prog ramm i ng 
techniques in action 



All the programs and routines in this 
book are written in a standard form of 
BASIC, which, with minor alterations, 
will run on most of the main makes of 
home computer, Al the back of the 
book there is a Guide to BASIC with 
explanations of all the mam BASIC 
words and where necessary, 
conversions for each of the main 
makes of home computer. 


What are programming tricks? 




200 PRINT 'DO YOU MftKT IQ SAVE YOUR 1 
210 PRINT "DftTfl? PLEASE TYPE Y OR N 
220 INPUT At ^ --- 

230 IF At=T THEN BOSUB 2000 
240 PEN REST OF PROGRAM 
50 0 END 

1995 REM SUBROUTINE TO SAVE DATA 
2000 PRINT 'START CASSETTE' , 

2010 PRINT "THEN PRESS RETURN 1 
2020 INPUT Rt 
2030 SAVE " 

2040 RETURN 


Subroutine 1 


A programming trick is a short, neat way of 
carrying out a task in a program Many of 
the tricks in this book are in the for m of 
subroutines which can be used in lots of 
different programs On the next few pages 
you can find out how to write a program as a 
senes of subroutines, with each subroutine 
carrying out a separate task. This makes 
writing a long program more like writing 
lots of short programs. Frequently. too s you 
can use the same subroutine for carrying 
out a particular task in lots of different 
programs Professional program writers 
hardly ever write a new program entirely 
from scratch 
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What is a subroutine? 

A subroutine, sometimes just called 
a routine, is a set of program lines for 
carrying out a particular task. The 
subroutine can be placed anywhere 
in the program and can be earned 
out as many times as you like, Each 
time you want the computer to 
perform that task you use the BASIC 
command GOSUB with the number 
of the first line of the subroutine. 


Parts of a program 

Most programs consist of three main 
parts: a program control centre with 
worker subroutines to carry out the 
main tasks and service routines to 
help them. 

The control centre is the pan 
which controls the sequence of 
events in the program, telling 
the computer when, to carry our 
each subroutine. 


Worker 

subroutines 


The worker subroutines carry 
out i he tasks which are special 
to that program. For example, 
in a missile game the worker 
routines would calculate the 
current positions of the 
missiles and update the score, 


At the end of the subroutine you 
need the command RETURN. This 
tells the computer to go back to the 
instruction after GOSUB 


When you are 
program, look out for tasks which need 
to be carried out frequently at different 
stages during the program. For 
example, displaying a message on the 
screen or creating a delay. Rutting 
these tasks in service subroutines will 
make your program shorter, faster and 


Service 

routines 




Control 

centre 


The service subroutines help 
the worker routines by 
carrying out often needed 
tasks, such as plotting the 
screen graphics and 
displaying the score. 


easier to understand. It does not matter how 
long or short the routines are - a subroutine to 
create a delay can be a single line containing 
a de lay loop. For more examples of t he sort of 
tasks that can be carried out by service 
routines h study the Flip- file program at the 
back of this book. 


REM tricks 

To help you remember what 
each subroutine is for, label it 
with a REM statement- The 
computer ignores all 
instructions starting with REM. 

When you have finished the 
program and it is running 
smoothly, you may want to 
delete the REM statements, to 
save memory space. 


200 BOS 116 500 

if 495 m DELAY SUBROUTINE 
/( m FOR J=1 TO 200: NEXT J 
|\ 510 RETURN 

To make this task easier, put 
the REM statement on the line 
before the one listed in the 
GOSUB command, so you do 
not have to renumbenhe 


program. 



Alternatively, you can put the 
REM as the last statement in a 
multistatement line, as shown 
above. 



Making a subroutines 
library 





to 



LU 

LLI 

Q 


cc 

o 

Z 

ID 

< 

to 

CO 

u 

O 

LU 

<jy 

to 

s 



It is a good idea to collect 
useful subroutines which you 
can use in lots of different 
programs. As well as writing 
your own subroutines you can 
study other peopled programs 
in books or magazines and 


note down useful routines. 
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Program planning skills 

Spending time on planning your program can save you hours of debugging later. In 
professional software houses, a person called a systems analyst usually plans the 
program down to the last detail before handing it to a coder who translates it into a 
programming language. If you are writing your own programs it is enough to make 
a short list - a "computer jobsheet" - of the mam tasks the computer will have todo, 
and then develop the program on the computer. There are some guidelines to help 
you on these two pages. 




Before you write the jobsheet you need to 
have a clear idea of what you want the 
program to do, ft is a good idea to write a 
short description of the program. For 


example, the picture above shows a 
descripiion of the Flip- file program which 
is listed at the back of this book. 


-fr/e jobsheet ______ 

fjip-lile johsk&zt 

, users n jp fkmq* 

j */> nvoQffiW ard /iifer a card ^ “ • 

Sena cotv>P ^ ta$k$- 

-»zt^ odo ^ 


time on 

planning 

your 


proa ram 




Once you have a clear idea of what you want program . The jobsheet for the Flip -h \le 

t he program to do you can write the program is shown above , Keep it simple at 

jobsheet. This should show t he main tasks this stage, you can always add extra 

6 the computer will need to do to carry out the features later 


Writing a skeleton program 


The next t hing to do is to write a skeleton version of your program. This is a very simple 
version of the program which shows all the main features but does not yet carry out any of 
the tasks . Y ou can do this using "dummy subrout ines" as shown in the s keleton version of 
Flip-file below. 

A dummy subroutine is one in which you use GOSUB to tell the computer to go to a 
certain line and then at that line you print a message on the screen to remind youxselfthat 
this is where the subroutine should be, followed by the RETU RN instruction Using dummy 
subroutines enables you to run the program to te st that the computer will carry out the 
various tasks in the correct sequence. 


Flip- file skeleton 


|- 10 PRINT "FLiP-FIL£“ 

20 PRINT ‘MflULD YOU LIKE TO' 

30 PRINT -l. Ml ft CARD" 

10 PRINT ‘2. REMOVE ft CARD* 

50 PRINT '3. ALTER A CARD' 

£ 40 PRINT “A. FLIP [ARDS' 

1 70 PRINT "5. LOAD CARDS" 

-3 SO PRINT "4. FILE THESE CARDS' 
g 90 PRINT "TYPE THE NUMBER DF YOUR CHOICE' 
O 100 PRINT 'THEN PRESS RETURN’ 

110 INPUT CH 

120 ON CH 6D5UB 300,100,500,400,700,800 
130 PRINT "PRESS RETURN TO CONTINUE" 

140 INPUT K» 

L 150 GOTH 10 

- 295 REM SUBROUTINE TO ADD CARDS 
300 PRINT 'ADD SUBROUTINE* 

310 RETURN 

395 REN SUBROUTINE TO REMOVE CARDS 
i 400 PRINT 'REMOVE SUBROUTINE* 

3 410 RETURN 


Introduce program and ask user what 
they want to do. This part of the program 
— is called a menu. For more about mends, 
see pages 30-31. 


Input routine. Variable CH holds number 
of user's choice. The command ON 
1 GOSUB sends computer to conrect 

— subroutine to carry out user's choice For 
more about ON GOSUB see page 30/ 

— Makes computer wait until you press a key. 

— Repeats program so user can make another 
choice (unless they choose the save option in 
which case the program will end at line 810), 


Dummy worker subroutines for each of the main 
tasks. In each subroutine the computer prints a 
message on the screen, then returns to line 120. 


£ 495 REN SUBROUTINE TO ALTER CARDS 
| 500 PRINT 'ALTER SUBROUTINE' 

| 510 RETURN 

8 595 REN SUBROUTINE TO FUR CARDS 
e 400 PRINT "FLIP SUBROUTINE' 

410 RETURN 

495 REN SUBROUTINE TO LOAD CARDS 
700 PRINT 'LOAD SUBROUTINE' 

7I0 RETURN 

795 REN SUBROUTINE TO SAVE CARDS 
@00 PRINT "SAVE SUBROUTINE' 

810 END 


At the end of the control centre you 
need to stop the computer running on 
into the subroutines. You can do this 
by making it branch back to the menu, 
as in th is exam pie, or with the 
command STOPor END- 


Leave big gaps in the line 
n umbers so you can add 
lines later, , 


) 


\r 





You can write the skeleton program at the 
keyboard, or on paper if you prefer. Once 
you have got your skeleton program 
running you can write each subroutine as a 
separate unit, then slot it into the program 
and test it. As you write the worker 


subroutines, look out for tasks which can be 
carried out by service routines. It is quite aU 
right to send the computer to a subroutine 
from within a subroutine. You can use 
dummy subroutines for the service routines, 
too, until you are ready to write them. 


*The Spectrum does not have the command ON GOSUB. See the Guide to BASIC 


What to do first 


There are two things lo decide before you start writing the subroutines for your 
skeleton program. You need to decide how you are going to store the data for the 
program and how you are going to arrange information on the screen. * 

Data can be stored in variables or arrays. A variable is a labelled space in the 
computer's memory where a single item of data can be stored An array is a way of 
stor i ng several i terns of da ta un der o ne variable name. 




Setting up variables and arrays 


For more 
about arrays 
see pages 
18-19, 


Y ou need to give the co mput er start ing 
values for the variables. If you are using an 
array you must tell it how many items the 
array will contain, This is called 
dimensioning an array. The process of 
setting up variables and arrays is called 


initialization and it is the first task the 
computer needs to carry out. It is best, 
though, to put the initialization routine at the 
end of the program, with a GOSUB 
command at the beginning 


Variable tricks 

Y ou can save memory space and make 
programs run faster by using variables 
for any data which is used more than 
once in the program. You can do this lor 
constants, i.e, data which does not 
change, as well as for data which alters 
dunno the program. 



For example, use variables for 
messages which will be used several 
times in the program If you have lots of 
messages you could put them in an array 
and refer to them by the number of their 
position in the array, e,g PRINT M$(5). 

A variable containing a line of dashes is 
useful for drawing lines on the screen, or 


10 EOSUB 1500 

20 REP1 REST Df FROGRMI 

T4?r^irT7Wir 1 AL I ZATI DN SUBROUTINE 
1500 LET 10; LET T=100 
1510 m DM) 

-C £ , J=I !G 4 1 Loop to read 
1530 READ D(J) T data into array 
3 540* NEST J J 
1550 DATA 25,15,39,22 
y 1560 RETURN 

If you put it at the beginning it will slow the 
program down because of the way the 
computer searches for subroutines (see 
page 10), If you need to set your computer's 
graphics mode you should do this at the 
beginning of the initialization routine as it may 
affect the memory available for storing data. 




umderlining titles. You can use PRINT TAB 
(or your computer's word* * ) to draw the 
line where you want it. To rub out lines or 
messages , use a variable containing as 
many spaces as there are dashes in the 
line, or characters in the message. 


There are ideas for screen designs on pages 28-29- 


* *See the Guide to BASIC. 



General purpose subroutines 

Once you have got your skele ion program running, and. you have added an 
initialization routine, you can start writing the mam subroutines. As you write them, 
look out for jobs which need to be carried out by several different worker routines 
and see if you can write them as service routines. 

The service routines must be general purpose routines which do not contain any 
data which is specific to one part of the program. You can do this by using variables 
in the service routines and giving the variables specific values before you send ihe 
computer to the subroutine. This is called “'passing a value". 


General purpose message routine General purpose g raphics routine 
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130 LET SIIE=10: 
HO 60SU6 300 
150 

295 RE« SUBROUTINE 
' 300 PLOT X,Y 
310MII+9UE,¥ 

320 DRAW I+SIIE P Y*SI ZE 
330 DRAM X,Y+SIZE 
340 ORfllt l,Y 
350 RETURN 


grapnics 
commands for 
yourcomputer, 


REn MESSAGE subroutine 
2000 PRINT R$ 

1010 INRUT REPLY* 

2020 RETURN 


A message subroutine like this can be 
used anywhere in the program, or even in 
other programs, because each time you 
use it you can put a different message in 
the variable M$. 


This routine draws a square with sides SIZE 
units long, at screen position X,Y To draw 
different squares at different positions you 
give the variables SIZE, X and Y different 
values each time you use the subroutine. 




If your program breaks down with 
an error message and you cannot 
trace the error, use PRINT as a direct 
command (i.e. with no line number) 
to print the values of some of the 
variables. From the contents of the 
variables you may be able to tell 
what caused the bug. This is a useful 
debugging trick when you are 
developing your program. 
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How the computer finds subroutines 




M the lines of a program are stored in the 
computer s memory and the computer 
carries out each instruction in turn When it 
reaches a GOSUB command it makes a note 
in a special area of the memory called the 
GOSUB stack, of the memory location 
where the GOSUB command is stored. 


Then it goes to the beginning of the 
program and looks at each line number 
untU it finds the subroutine. It carries out the 
subroutine instructions until it reaches 
RETURN Then it looks in the GOSUB stack 
to find where to return to and goes straight 
back to t hat part of the program . 


Subroutine trick 

If you have a subroutine for a task which 
needs to be carried out very quickly 
(e.g. a plott ing routine for animated 
graphics), put it at the beginning of the 
program so the computer finds it as 


soon as it starts looking through the 
lines. You will need a GOTO command 
before the subroutine to make the 
computer jump over it the first time it 
runs the program. 


Another kind of subroutine 


Some computers have another kind of subroutine, called a procedure.' A procedure is 




like a subroutine, except that it is referred to by name, rather than by line number, This 
makes the program easier to read and underst and. 

10 LIT U=30:LET CV=45:LET RD=20 
2& PfiDCCSRCLEiCi.CYffiDS^, CX.CYardRB 
SO REM REST OF PROS RAM are messenger 


variables. 


500 QEF PRQCCIRCLE(I p Y p R) 

10 LOCAL Mil V 

520 HOVE I # ¥ : HOVE SE*M 
m FOR 1=0*2 TO M STEP 0.2 
540 LET ft=X+R*C0S 1 1) : B- Y*R*5IN 1 1 1 
550 DRAW M 
560 NUT 1 
570 mwM 


X,Y andR 
are local 
variables. 


X, Y and R and A, B and I are 
all local variables because 
their values are used only in 
the procedure. 


PROC is short for procedure. It tells the 
compute! to carry out the procedure 
called CIRCLE, using the values in The 
variables CX, CY and RD. DEF PROC is 
short for ‘ define procedure " and lines 500- 
570 tell the computer how to carry it out, 
END PROC is Like RETURN and tells the 
computer to go back to where it left the 
main program. The variables CX, CY and 
10 RD are used as messengers to carry 


values lo the variables X, Y and R in the 
procedure X, Y and R are local variables 
which means their values are used only in 
the procedure, You can use the same 
variable names elsewhere in the program 
and the computer will not mix them up. 
This feature makes procedures 
completely separate from the rest of a 
program and very useful as general 
purpose routines. 


*The Commodore 64 with Simon's BASIC, and the BBC and Lyrut all have procedures. 



Defining your own functions 


A function is a calculation which the computer can carry out on number or string 
data There are several BASIC function commands. For example, the SQR function 



finds the square root of a number and LEN is a function which calculates the 
num be r o f c ha racters in a st ring, Most versio ns of BAS IC a Iso a llow you to de fine 
your own functions and refer to them by name. 


JO REI1 MILES TO KILOMETRES 
40 DEF FNKILO IM l =Mi 1,6013- 


Tells computer 
how to cany out 
function FNKILO, 


SO PRINT "DISTANCE IN ftlLES' 3 ' 

40 INFU! & 

70 PRINT D5 B NILES IS “ l 
00 PRINT FNKILO for KILOMETRES' - 


Makes computer 
carry out function 
FNKILO on data in 
■ variable D. 


DEF FN is short for “define function 11 and 
PRINT FNname tells the computer to carry 
out the function. In the example above, the 
variable D is a messenger variable. It 
carries the data to variable M in the DEF 


FN line. Variable M is a local variable. You 
can have another variable called M in the 
program and it will not be affected by the 
value of M in the function. 







jtres to mil eS 

BILES MO* ,1>W,S 


Jseful functions 

ieie axe some functions that can be used 
n any programs . 

enU 9 ra<ae 

enti 9ra{j etof 

****,+,! h ° 1 ' 

SSSS^ ! 


Volume of 

DEF FHWL (L, V r Kl «L*D*H 

Calculates volume of solid with lengt h L, 
depth D and height H, 

lfe rance ofa circle 

Caic^ m e cir^ teience ° taCirC 

wUhiadiusK 


On some computers the function's 
name must be only one letter and 
you are only allowed to useone 
va riable after the fu nction name. 



Variables tricks 


When you are developing your program n is a good idea to use words as variable 
names to make the program easier to read and understand Long variable na tries, 
though, take up a lot of memory space and slow down your program, so when the 
program is finished you may want to shorten the names to one or two letters. Also, 
some computers do not allow you to use words, or will only recognize the first two 
letters. * Here are some tips on choosing and using variables, 



Choosing variable names 


If your computer only accepts single letters 
as variable names, use the hist letter of a 
word which describes the variable, e.g. T 
for “total" If you can use words, use a short 
word. For some computers, though, you 
must make sure that the first two letters of 


each name are different. It is a good idea to 
do this anyway, so you can easily shorten 
the names when the program is written. 
Alternatively, you could use mnemonic 
names, i.e. abbreviations which re mind you 
what the variable is for, e.g. LGTH for length. 


not use names which contain 


TOTAL because it contains the 
BASIC word TO, 
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Standard variable names 



These are used in FORHEXT loo ps. J stands for T (short for Time) or DELAY are often used for 

Iterar Lon which means "to re peat", f and K were delay loops, 

chosen because they follow I in the alphabet 



Xand Y are used for TAB positions and for the These stand forOld X and Old Y and are used 
co-ordinates of a pixel, (a$ on a graph wit h a when you need to calculate the next position of 

horizontal X axis and vertical Y axis), X and Y. 



W , for W Ldth, is for the number F stands for Flag, a variable These are frequently used wit h 

of pixels or characters across used to indicate the presence INPUT. They stand for Answer 

the screen. H, for Height , is for of a certain condit ion. and Input, 

the number down. 


It is a good idea to develop your own 
standard variables and use them for the 
same tasks in all your programs They will 
be instantly recognizable to you, and will 
also make it easier to use the same 


subroutines in different programs There 
axe also some names which everybody 
tends to use for certain variables. These are 
shown in the picture above, 


"Check the rules for your computer in your manual. 








Inside the computer's memory 

Variables are stored in a special area of the 
computer's RAM (random access memory), 
separate from the program. This enables 
the computer to look up the value of a 
variable quickly when it is carrying out a 
program. This is one of the reasons why you 
cannot use all the RAM for storing your 
program. For example, if you have 16K 
RAM, only about 12K may be available to 
you. The rest is used for storing variables, 
and as workspace for the computer while it 
carries out your program. 

How variables are stored 



The computer's memory is like lots of little numbered boxes. The boxes are called 
locations and the numbers are called addresses. Each box can hold one byte of computer 
code, i.e. the code for one letter, number or symbol Memory size is measured in bytes and 
1024 bytes make IK (K stands for Kilobyte), 






1 — Variable name 

For string variables, the name of the 
variable is stored in a different place from 
the contents. Each letter in the name takes 
one byte. Then the computer needs two 


bytes to indicate where the string is stored 
and another for how long it is. The string 
it self needs one byte for each character The 
variable REPLYS above would take 13 bytes. 


&E&L NUMBERS 




INTEGERS 




msmnmrmm 


L Variable name 


v Variable name 


The computer stores numbers to a 
precision of nine decimal places It uses a 
special coding system and on most 
computers this takes five bytes, plus a byte 
for each character in the name. It uses five 
bytes for the number even if it is a low, 
whole number, i.e. one without a decimal 
point. Whole numbers are called integers 
and ones with a decimal point are called 


real numbers. 

Some computers have a special kind of 
variable called an integer variable which 
you can use for whole numbers. * Integer 
variables have a % sign after their name and 
only take two bytes. If your computer has 
integer variables, use them whenever 
possible as they save memory space and 
make the program run faster. 



Loop trick 

If your computer allows it, use integer 
variables in FGR/NEXT loops. They 
take up less memory space and make 
the program run faster. 
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The VIC 20. Commodore 64, BBC, Electron and Apple all have integer variables. 



IF/THEN skills 

Al various stages an a program you usually need to make the computer choose 
between several different courses of action, depending on certain conditions. You 
do this using ihe words IF/THEN. 





CONDITION 
IS TRUE 


then U action 


Y ou can create more co mpl icated t e st s 
using the words AND and OR as shown 
above. With AND, the THEN instruction will 
only be carried out if both tests are true. 


With the OR test, the instruction is carried 
out if either condition is true. Remember to 
repeat the name of the data after each OR or 
AND. 


To make the computer choose, you test data usmg the 
symbols shown on the right. These symbols are called 
operators. If the test is true the computer will carry out the 
instruction following THEN. Any BASIC statement can 
follow THEN, or you can send the computer to another line 
with GOSUB or GOTO 


> Greater than 
{ Less than 

Greater Ehan or equal to 
C - Less than or equal to 


i? vw mu =■ i m y<« m ym then print u 

IF Nr: m OR lft= " " THESI PRINT "00 ANAY“ 

if y=! m m and x< 10 or r/2=so then gosub 500 


50 IF A=1Q THEN PRINT "CORRECT" ELSE PRINT "WROMG" 

SO If AMO THEN PRINT "CORRECT* 

90 IF 6010 THEM PRINT b mW 


The word ELSE enables you to tell the 
computer what to do if the test is not true, 
without repeating the IF THEN. For 



example, line 50 above performs the same 
function as lines 80 and 90, but it is shorter 
(Not all computers have this command..} 


IF 1<| THEN LEI DABS ID ELSE IF DIM 

k^yjf 1=5 AND IY-2 OR YM) THEN PRIHT "TRUE* 1 

I HEW LEI 31-100 ELSE IF M THEN LET Y=Y*2 

IF 1=5 AND 1=2 OR YM THEN PRINT "TRUE" 


You can string together lots of IF THEN 
tests using ELSE, but be careful not to make 
the program difficult to read. If you use lots 
of AMDs and ORs in one line you may need 
brackets to tell the computer how to read 
14 them. 


In the first example above, the computer 
will only carry out the THEN instruction if X 
is 5 and Y is either 2 or 4. In the second 
example, the test is true when X is 5 and Y is 
2, or whenever Y is 4. 


t\ j^C 



Following a course of action 

One of the drawbacks of BASIC is that there is no neat way of giving the computer a whole 
series of instruct ions to carry out if the I F T H EN test is true. The only way you can do this i s 
with a multiple statement line, or by sending the computer to a subroutine, or by jumping 
over a block of instructions with GOTO In other languages, such as Pascal, there is no limit 
to the number of instructions the computer can carry out depending on a test. 


1 Multiple statement lines 


100 IF K10 THEN LET V=1:LET R^R+JCslHPUT KiFDR J = 1 TO 6; LET 
I“SCtK:NE3CT J 



Check the number of 
characters your computer 
will accept in one 
program line. 


In a multistatement line starting with IF, all 
the statements in that line are only earned 
out when the IF test is true. When the test is 
not true, none of them is carried out and the 
computer jumps to the next line. This is one 
way of giving the computer several 


instructions to carry out after a test. The 
number of statements you can have, though, 
is limited by the number of characters your 
computer will accept in one program line 
(up to 255 on most computers). * 



You can make the computer jump over a 
block of instructions using GOTO as shown 
above. If you make it leap-frog about like 
this, though, it becomes very difficult to 
follow the flow of action through the 
program and this makes it difficult to read - 
and debug 


3 GOSUB 



If the instructions will not hi in one 
multistatement line it is better to use a 
subroutine rather than GOTO. You will need 
one subroutine with the instructions to 
follow if the test is true and another if there 
are alternative instruct ions to carry out if the 
test is not true. 


Other computer languages 

The computer language Pascal does 
not use line numbers. Instructions are 
grouped together in blocks and each 
block is labelled with the words BEGIN 
and END to identify it for the computer. 
You can have as many instructions as 
you like in a block so it is easy to give 
the computer a whole series of 
instructions following a test. 

The short program on the right is a 
program to print multiplication tables. 


PROGRAM TABLES Sets up variables 

VAR BASE, mm f 1: INTEGER; BASE. NUMBER 

BEGIN aildI - 

HRITEU t’NHICH MULTIPLICATION TABLE’) 

KRITEIN I' WOULD YOU LIKE TO SEE' 1 ’) 


1NPIITLN [BASE) 

FOR 1=1 TO 12 00 
BEGIN 

NUMBER: -BASE* I 
WR1TELN [BASE, ’I’, I 

end; 

END; 


=* , NUMBER) 


Loop to 
— print 
tables. 
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"The Commodore 64 allows only 80 characters and the Vic 20 allows SB, 



Repeating things: loops 

As well as making decisions you often need to make the computer repeat a set of 
instruct ions a certain number of times. A section of a program that repeats an act ion 
is called a loop. There are several different ways of making the computer loop. 



Touch yourtoes 50 
times 


REPEAT 


NO, OF 
TIMES 


^ ) J hthe 

AlO^Z loop index 


FOR/NEXT loops 


Nested loops 

FUR J=1 TQ 3 
PRINT ■TDUCR YOUR TOES* 
F ° R 1=1 TO 3 -j ]ni<er 
PRINT ’STRETCH' h loop 

NEII I J 
NOT J 


The simplest kind of loop is an 
unconditional loop where you tell the 
computer to repeat an action a set number 
of times. Y ou do this with the words FO R, 
TO and NEXT as shown above. You can 


loops inside loops. These are called 
nested loops With nested loops, both 
parts of the inner loop must be inside the 
outer loop. The variable which counts the 
number o Hoops is called the loop index 


make more complicated repeats using 







Repeat/until loops a p 


Touch your 
toes until I say 
stop. ^ 


REPEAT 


te 


UNTIL 

condition 
IS TRUE 


Sometimes, though, you do not know how 
many times to repeat a loop and you want 
the computer to continue until a certain 
condition is true. For example, you may 
want to repeat an input line until the user 
types STOP, or make the computer search 


through an array until it finds a certain item 
Some versions oE B ASIC have the 
commands REPEAT and UNTIL, but if you 
do not have them you will have to write a 
routine like one of the ones below . 



This routine repeats the input line until the 
user inputs STOP. The variable I is the loop 
counter, or index, and it is good practice to 
set I to 0 at the beginning of the loop in case 
1 6 it was used somewhere else in the program. * 


Y ou s hould never jump out of a loop with 
GOTO. The computer will follow your 
instructions, but somewhere in its memory 
it will have a half-finished loop counter and 
this could lead to bugs later in the program, 


Tor Sinclair computers in line 45 you must tell the computer the number of characters in the longest 
item of data . E. g. DIM D$( 100, 12). 


Outer loop 


Tricks to terminate loops 


10 m Ltl OP TB SEARCH THROUGH ARRAY 
20 EUR J=l TO M 
30 IF D$lJl=RI THEN LET K=J 
10 MET! 2 


50 PRINT DtlK) 


[ This si 
— ? value. 



SC fet! i> to' 

2c Ft , msm 


tC *17 j 1 




**1*7 


IK, 


'* ’ T ! i/jiri , 


7 


setsthe loop index to its final 



These two routines show two different ways 
of terminating FOR NEXT loops when the 
condition is true In the example on the left, 
the computer searches through array D5 
until it finds the item which matches R$. It 
keeps a record of its position in the array by 


setting another variable, K> to the value of 
the loop counter. Then it runs through the 
rest of the loop. If speed is important, 
though, you can terminate the loop by 
setting the loop index to its final value, as in 
the example on the right: 



Whilethe music 
is playing, touch 
yourtoes. 


WHILE 
CONDITION 
IS TRUE 


DO ACTION 


REPEAT 


In a "while" loop, the computer repeats an 
action while, ie. so long as, a certain 
condition is true. This sounds the same as a 


the computer tests for the condition before 
carrying out the action. If the test is not true, 
it does not carry out the instructions. 


, [while loops 


c -k 




repeat/until loop but the difference is that 



Test TEMP. 


Only carries out 
these instructions 
when TEMP< 100. 
Line SO makes the 
loop repeat. 


THEN WTO W 

TtHPEWTWf 




Repeal 


In this routine the computer will only carry 
out lines 60-80 when TEMP is less than 100. 
When TEMP is 100 it jumps to line 90. Some 
computer languages (e g. Forth and Pascal) 
have commands for while loops 1 but in 
BASIC you have to construct a routine, like 
the one above, using two GOTOs. This is 
one of the reasons why people sometimes 
criticize BASIC. In fact, in this simple 

*lf you have a Spectrum see page 46. 


example you could avoid having two 
GOTOs by using a multistatement line: 

50 IF TEMPc 100 THEN PRINT "RAISE 
TEMPERATURE": LET 
TEMP-TEMP+ LGOTO50. In a more 
complicated program, though, with lots of 
instructions to carry out so long as TEMP is 
less than 100, you would need both GOTOs. 
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Storing data in arrays 


The most usual way of giving a computer large amounts of data is by listing it in the 
program in DATA lines. as shown below. The data has to be read into variables, or 
an array, before it can be used by the program. These two pages describe some of 
the ways in which you can use arrays. On pages 20-26 there are ideas for other 
ways to store data and some tricks to save memory space 



Data items are separated by 
commas. Some computers 
also needquotes round each 
item of string data. 


This isa 
numeric array, 
i.e. it contains 
numberdata. 


This pnntsthe 
fourth item in 
array D. 


100 DATA BOLD RIMS, LAMP, SVOI 
m DATA SANDWICH, AXE, SACK 
120 DATA CLOCK, RADIO, MATCHES 


io m a 1 ' 01 
to m J-i 10 10 

30 REM i> 111 

50 m 5, \i V n 

— ai 

To put the data in an array you use the Element 

command READ, with a loop to run as many 
times as there are data items, as shown 
above. Line 10 tells the computer how much 
space to reserve for storing the data. 


Subscript 


Data 


FOR J=J TO IS 
PRINT DU) 
NEIT J 


PRINT EH 4 ) 


Smclaircomputers have 
special rules for string 
arrays. Check your 
Sinclair manual. 


Th i s loop ma kes th e 
computer print out the next 
item in array D each time the 
loop repeats. 


Once the data is in the array you can search each position in the array is called an 

through , or print out all the items using a element - In this example, array D is a one- 

loop . To pick out one item you use the dimensional array. That is, it is like a list and 

number of its position in the array to identify each item has only one subscript. 

13 it. This number is called its subscript and 




Two-dimensional arrays 


If you have groups of related information, say the addresses, telephone numbers and 
birthdays for a number of people, you can use a two-dimensional array and put all the 
information about one person in one row. This makes it easier to find all the information for 
one person, or to look up, say, one person's birthday. 



i— mf— ni— m 

SS0 


Nested loops co 
read data into 2- D 
array with 4 rows 
and 4 columns. 



Each element in a two-dimensional array To print out all the data in one row you use a 

has two subscripts: the row and column loop as shown above right; To find one 

numbers To read the data into the array you particular item you just need the row and 
use nested loops - one to count the rows column number . 
and one for the columns, as shown above. 


Cross-referencing arrays 


When you use two-dimensional arrays you may need a second array to serve as an "index 11 
for the first. For instance, for the example above, you could put the people’s names In a 
one-dimensional string array. Then you could search through the names array for a 
particular person and look up his or her data in the other array, as shown below. The names 
should be in the same order as the rows containing their data in the two-dimensional array . 
For example, the data for the person in NS(3) should be in row three of BS. 




This loop makes the computer search through N$. When 
it finds the right name 1 it records the value of the loop 
counter, i.e. the subscript of the name, in another 
variable, X. This is to avoid jumping out of the loop as 
described on page 17. 


m KM TO 4 
PRINT BI(X P K1 
NEXT K 


r ■ — — 

m J =1 TO 4 

IF NitJJ-mr THEN LET W 
/ NEIT ] 


Then you can use the number in X to find the row for that 
person in the two-dimensional array, and print out all the 
data in that row. To do this you use a loop as shown above. 
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Data tricks 


When you read data into an array, the data is stored in the memory twice - onceas 
DATA lines in the area where the program is stored and again in an array in the 
area where arrays and variables are stored This is why programs which have a lot 
of data, such as adventure games, take up a lot of memory On the next fewpages 
there are some space-saving ideas for storing data. 


Arrays trick to save memory space 


A two-dimensional array takes up much more space than a one-dimensional array with the 
same number of items To save space you can use a one -dimensional array and organize 
the data in the same way as you would in a 2-D array, Le. putting groups of related data 
items together. To fmd any item you have to use a formula to calculate its position in the 
array The Flip-file program at the back of the book uses this method. 




Each of the 
items in a 
group is 
called a 
field 


This prints out 
aH the items in 
record 4 of 
array D$. 


In Flip- file, 
each record 
contains the 
information 
forone '"file 
card". 


This prints the 
address 
from record 4 
of D$. 


Formula 

UHIM)#RL*n 


(RN - 1 PRL gives 
the last item in the 
previous record, so 
you have to add 1. 


Using element zero 

It's usually easier to imagine arrays starting with element 1, 
but tn fact, most computers number them from zero So if 
you are short of memory space you could use element 0. 

To do this, make your loops to read or find data start at 0, 
and make the limit of the loop one less than the number 
of data items, as shown on the right 


) of related i tern s^s c 


Each group 
record. 


To find the beginning of each record you use this 
formula. RN is the number of the record in the array (e g . 
in the picture on the left, Solomon’s data is record 3). RL 
(record length) is the number of items in each record 
(they must all have the same number of items) 


There are 

FOR 10 3 ^- — 3 items 
PRINT in each 

JOT 1 reeQrd - 


To print out all the items in 
one record you add the 
value of the loop index 
instead of the 1 at the end of 
the formula. 


PRINT 

To find one item within a 
record you need to add the 
number of its position inthe 
record. 



Data files trick 

Instead of putting data m 
DATA lines in the program, 
you can store it on tape or 
disk and read it straight into 
an array when you run the 
program. This saves a lot of 
memory space. A list of data 
stored on tape or disk is 
called a hie. 

You need to find out the 
commands for loading and 
saving data for your 
computer. These are 
different on every computer 
although they usually follow 
the style shown on the right. 
The main ones are listed in 
the Guide to Basic at the 
back of the book. 


OPEN d named file 
FDR 1=!, TO no, of data items 
PRl'HTI, Dill) 

WOT I 
CLOSE file 



PRINT# (print hash) is the most common command for 
storing data on tape. Before you store the data you have to 
open a file and when you have finished you must close it. 



OPEN naied file 
FOR 1-1 TO no. of data 
INPUT), Dt(Ii 
BEIT ! 

CLOSE file 


INPUT# (input hash) is the most common command for 
loading data from tape or disk. As with saving, you must 
open the file before loading the data and close it 
afterwards. 


Howto make a datafile 


1 * In the initialization routine, dimension the 


4 . Dimension the array 10 hold the data. 

array and add lines to read data file X. Save 
the program. 


i 

5. Read the data into the array . 

2. Type NEW to clear the program from the 


6, Save the data in file X 

i computer s memory. 

«' 3. Write a routine, as shown on the right, to 
i store the data in file X. 

' 

L’:ir J 


Here are the steps to follow to store the 
data for a program on tape or disk instead 
of in DATA lines in the program. After 
carrying out these steps you will have a 
copy of your program on tape or disk. 

Protecting your files 



along with a data file containing all the 
data. When you load and run the program, 
the data will be loaded automatically into 
the array. 





( If von fiawc a 

PRINT * PASSWORD PLEASE’ /Spectrum H 
INPUT P* \ compute r, se&f 

Open file Cp ^ 46 

INPUT! , PHI 

IF PIOPMI THEN LET m *" : Close filesNE* 


When you make your data file you could 
include a password so that only authorized 
people who know the pass word can load 
the data. You need a routine like the one 
above left, to save a password with your 
data. Then you need to add a password 


Checking routine to the main program, just 
before the routine to load the data. If 
someone running the program types in the 
wrong password, the checking routine will 
wipe out PW$, close the file and destroy the 
program with the command NEW . * 2 1 


*If your computer does not accept NEW in a program line, use a loop to poke numbers less than 255 
into several locations with addresses between D and 255. 


Restore trick 


Here is another trick to save memory space. The command RESTORE makes the computer 
go to the first line of data in a program, This trick enables you to use the data listed in DATA 
lines without reading it all into an array. Normally you have to put the data in an array before 
you can use it. 


10 PRINT ‘YOU ARE IN* 
50 RESTORE 
b0 FOR 0=1 TO 1 
70 REAR St 
BO HE IT i 
?0 PRINT D» 



You a re in. 

gJOPATA A DAMP 
OARK fOPBST 
DATA 

. . . a damp, dark forest You 
can go E r W. 



For example, you could use this routine in 
an adventure game to print out the 
description for location number X. The 
descriptions are stored in DATA lines. 
Each time the routine is carried out, 
RESTORE sends the computer to the first 
line of data The loop makes it read each 


item until J = X. Then it prints the last item it 
read into D$ - the description for 
location X. 

This method is slow, but if you do not 
clear the screen for printing D$ until the 
computer has found the data N the player 
will probably not notice. 


RESTORE line number trick 


The command RESTORE ‘line number’ tells the computer to go back to a specific data line. 
If you have this command it is much quicker to find a particular item of data using the 
RESTORE trick described above. 



This example uses RESTORE line 
number 1 ' to find the data for location LOG, 
The example assumes that each line holds 
the data for one location, the data lines 
start at line 1200 and the line numbers go 
up in tens. To find the number of the line 


with the data for a particular location, you 
subtract one from the number of the 
location and then multiply by ten (because 
the line numbers go up in tens). Then you 
add 1200, the number of the first data line. 


45 REM FOUR DATA ITEMS PER LINE 
50 PRINT N VDU ARE IN" 

60 LET DLMNTULOE-U/4) — 

70 1ET irEIW0tMDL*4) 

BO RESTORE f 1200MDLUM \ 

90 FOR YM TO ITEM ' 

100 READ Df 

110 KEH K 

120 PRINT Dt 


DL(data line)=(LOC- l}/4 because there are four 
items in each line. 

Find position of data item in line by subtracting DL*4 (the 
number of items up to line holding item you want ). 

Multiply DL by ten because line numbers go up in tens 

— Loop to read each item in line up to and including ITEM, 

— Prints last item read. 


If you want to put several data items in each instead of the array trick described on page 

line you need a more complicated formula, 20. Each data line should hold all the items 
22 as shown above. You could use this method for one record. 



Data packing 

On the next few pages there are two methods of saving space when you have to store lotsof 
numbers, for instance, all the co-ordinates for a screen display such as a maze. You can 
only use these tricks for numbers up to 255 because each number is stored as the character 
which has that number as its ASCII code. This is the code the computer uses to represent 
characters and there are only 256 different ASCII codes (0-255). Each character takes only 
one byte of memory, so you save four bytes for each number stored (numbers usually take 
five bytes). It is called data packing because you are squashing the numbers into a smaller 
space than they would normally require. 



ASCII codes 


Inside the computer, letters, numbers and 
symbols are represented by numbers 
coded in binary ASCII (American Standard 
Code for Information Interchange) is the 
international standard for which number is 
used for each character. 


The 256 different ASCII codes are used to 
represent all the letters of t he alphabet , the 
numbers 0-9, punctuation marks, graphics 
symbols and special keyboard commands 
such as RETURN and SHIFT. 



This is the character with ASCII 
code 75- 


PRINT 

CHRS175) 


The BASIC command PRINT CHES(number) PRINT ASC( "character”) tells it to print the 
tells the computer to print the character with ASCII code for a particular character. * 
that code number. 


Number packing trick 


This trick enables you to store lots of numbers in one variable (P$). On most computers the 
maximum numb er of characters you can store in one string variable is 2 55, so this is the total 


number of numbers you can store.' * 

10 DIM AMOUNT (no. of Ambers! 
20 FDR J=l TQ no. of nmbers 
30 READ AMOUNT IJ) 

40 NEIT J 

50 DATA all the nuibers 



iO LET 

V 


1 Asrttany stars 
as the numbers 
you want to 
store. 


First you need to set up an array 
(AMOUNT) and read all the numbers into 
it. Later, when the numbers are packed 
into the memory you can delete all these 
lines 


Next, set up a string variable (P$) with as 
many stars as you have numbers 
(maximum 255 ). This is to reserve space in 
the memory for the numbers. You need a 
string variable because the numbers will 
be packed as characters. 


'Sinclair computers use the command CODE instead of ASC. 
* *If you have a Spectrum or TR5 -SO. see page 46. 


Continued over the page. 
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Number packing trick continued 

3 

4 


This loop replaces the stars in P$ with the 
numbers stored in array AMOUNT. The 
command CHR$ tells the computer to treat 
the numbers as ASCII codes and each 



< Then M collapse' 1 the variable with this 
command- This fools the computer into 
thinking PS is empty, even though the stars 
are still in the variables area of t he me mory . 



number is stored as the character for that 
ASCII number. Because the computer 
thinks PS is empty it stores each character 
in the space reserved by a star . 



Now the numbers are packed in the 
memory. To retrieve any number you 
need to use the commands MID$ and ASC. 
In the example above, MID${P$,2 1,1) tells 
the computer to take one character from 
P$. starting with the twenty-first character. 



ASC tells it to print the ASCII code for that 
character - your number. If you do not use 
ASC the computer may crash as some of 
your numbers will probably be codes for 
special effects which cannot be printed as 
characters on the screen. 


Using the routine 

I 115 REN ROUTINE TD SftVE PI 
\ 120 Open file 
\ 130 PRINT! file, PI 
\ 140 Close file 



as you have 
numbers. 


30 Open file 
40 INPUT! file, PI 
$0 Close file 
60 REN REST OF 

\ mmm 


Packing data like 
this is a good way 
of hiding the data 
from someone 
who might list 
the program. 


5 REM ROUTINE TO USE PI 
ID LET etc, 

20 LET PS" 1H ^ As many stars ] 


Before you can use this method to store the 
data for a program you must save P$ as a 
data file as described on page 2 1 and 
shown on the left. 

In the program which needs the data, 
you only need the second routine shown 
on the left This reserves space forthe 
data with a variable full of stars, collapses 
the variable and then loads the data from 
tape or disk. 

You have to save P$ outside the 
computer because it is an ‘unquoted 
string" and the computer thinks P$ is 
empty. When you list the program, the 
data will not be listed and each time you 
run the program, the data in the memory 
will be wiped out (the command RUN 
clears all the data from the variables}. 
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Another way to pack data 

Here is an alternative method of packing number data. This time you use stars in a REM 
statement to reserve space for the data. Then you replace the stars with your data using the 
BASIC command POKE. ’ With this method the data is part of the program listing so you can 
run the program as many times as you like. When you save the program the data will be 
saved too. 



Each memory box is called a 
location. 


Each location 
has a number 
called its 
address. 


PRINT PEE K( 165771 


POKE and PEEK 


Address 


The command POKE tells the computer to 
store an item of data in a memory location 
with a certain address. The data is stored as 
a number which the computer thinks is an 
ASCII code. 


PE EK does t he opposite. Used with PRINT, 
it tells the computer to display the contents 
of a particular memory location i.e, the 
character whose ASCII code was stored 
there. 


Howto poke data 

You have to be very careful using this method as if you poke data in the wrong memory 
locations you may confuse the computer by wiping out essential information. If this 
happens you have to switch the computer off and on again to get back to normal. 


i 


10 fO(***»«****ete 



A In the first line of your program you need 
a REM statement with a s many stars as the 
numbers you want to store. You can put the 
stars in brackets to make them easier to 
spot. 



^Replace A with first address where your 
> computer stores BASIC prograrj^s 


Peeks into each location and puts contents in variable C 
If C< 3 lor ■ 1 27 at is an unprintable character and is 


20 FOR M TO A+100 

30 LET C=PEEKCIJ 

40 PRINT M REPRESS M jIj B = “J 
50 IF C< 31 OR 0127 THEN LET CM 6 replaced wiih 46, the ASCII code fora full stop. 

60 PR ® NT CHRf I G J — — Print s character for code C. 

70 ME IT I 
BO STOP 


Next you need these lines to peek into the 
computer s memory and find where the 
stars are stored. You need to replace the 
variable A in line 20, with the address of the 
first location where BASIC programs are 


stored in your computer. To find this 
address, look at the memory map in your 
computer manual (For more about memory 
maps, see next page.) 

B5 


‘Some computers do not use the commands POKE and PEEK, See the Guide to Baste at the back of 
this book. 





How to poke data continued 


r j 00 DATA list your nusbers here 
110 DATA etc 

150 FAR 1=K TO I+nuiber of data iteis-l 
140 READ it V 

■» «« >-» 

ISC HE IT I data items. 

Next, add these lines, putting your numbers 
in DATA lines starting at line 100. Then run 
the program. The computer will print the 
contents of each memory location and then 
stop at line 30. When you see the stars on the 


-n 

Be very careful to write / 
down the addresses of \ 
the stars correctly. 

If you make a mistake, 
the computer will crash 
when you run the next j 
partoflhe program, / 


screen, write down the address of the first 
star and make sure that there are as many 
stars as there are numbers in your DATA 
lines. 



Now type this LET statement as a direct 
command, i.e. with no line number. Then 
type GOTO 100. This makes the computer 
stan running the program from line 100. 
Each time the loop from lines 150 to 180 
repeats, the computer reads a number into 
N and then pokes it into location 1. Now the 
numbers are packed in the computer’s 
memory. 


S - 

w PRINT PEEKUddrsss+dats 



Position i n data list of nu m ber 
you want. 

To find any number h use PRINT PEEK as 
shown above. To check the numbers are in 
the memory you can run the program again. 
Now you can delete lines 20 onwards and 
add line 10 to the program which needs the 
data. You must not list line 10 as the 
computer may crash when it tries to display 
the data on the screen. You can list the rest 
of the program, though, by typing LIST with 
a line number. 


The memory map 

The memory map is a diagram which shows what different areas in the computer's memory 
are used for. There should be a memory map in your manual. The map shows all the 
computer's memory , including the ROM, with the addresses of the beginning and end of 
each area alongside. Here are explanations of some of the terms used on a memory map. 

Scree n memory or Display file . This is 
where anything to be displayed on the 
screen is stored. 

V an able 5. The d ata for variables and 
arrays is stored here. 

User RAM or Free RAM, This is where 
your BASIC programs are stored. 

Reserved for use of the operating 
system, The computer uses this area to 
keep track of what is going on, 

BASIC i The ROM program which 
enables the computer to understand 
BASIC- 

Operating system. The program in ROM 
which tells the computer how to work. 


Screen memory 

Variables 


User RAM 


Reserved for use of 


the operating system 


BASIC *( 

Operating system 



Checking input 


When you use the command INPUT you have very little control over what the user 
types in. The data the user types is immediately stored m a variable. If they type in 
something unexpected and it ts then used in the program it can cause the program 
to stop with an error message You should always check the input and make sure it 
is acceptable before going on with the rest of the program 




You can check letters in the same way as 
numbers, as shown above. In fact, the 
computer compares the ASCII codes for 
the letters. 

INKEYS trick 


It is a good idea always to use string 
variables with INPUT. Then, if the user 
types in a word and the program is 
expecting a number, the program will not 
crash, VAL tells the computer! o read a 
string variable as a number. 


Inputtrieks 


If you want the user to type in a word from a 
list of words the computer understands, 
store all the words in an array (W$). Then 
use a loop to check that the word is in the 
array (If you have a Spectrum, see page 46.) 


PRINT "MAT HQNTH IS YOUR BIRTHDAY’’* 
210 PRINT 'PLEASE TYPE ft FIGURE 
BETWEEN 1 AND 12* 

220 INPUT fit 

230 IF VALffliXl DJt VAL (fit) >12 THEN 
GOTO 210 


The easiest way to check input is to test it 
with IF THEN as shown above. If it does not 
pass the test, send the computer back to ask 
for the input again 

\ 20 IF At<"A' Ofi fitJ'F* THEN PRINT 
‘THE LETTER HIST EE BETNEEN A AND F‘ 


100 PRINT "TIRE THE YEAR YOU HERE BDRN' 

*10 LET LM 

*20 LET A*=’*~ ” “ 

*30 LET 1=0 

4*0 LET It=INKEYI;IF I** 11 THEN G0TD 440 

*50 LET CK=ASEIID 

*60 IF 0047 AND CK< 59 THEN LET 1=1+1; LET 
A4=At+Iti PRINT It? 

*70 IF KL THEN GOTO 4*0 

AfiO LET A=VAL(ftll — 

490 IF A=0 THEN GOTO 400 


No. of characters in answer you expect. 


Empty variable to hold answer. 


Counter 

Puts next key typed in IS. Repeats line 
until key is pressed. 

Puts ASCII code of character in IS into CK. 


Makes sure CK is ASCII code for no. from 
' 0-9, then adds 1 to counter and prints IS. 


Goes back to get another character from 
keyboard. 

Converts AS to a number and stores Ln A, 


1 — — *■ Checks A. 


When you use INFUT you have no control 
over the length of what the user types in. If 
you want to check or restrict the length, use 
INKEYS instead of INPUT. 4 INKEY$ tells the 
computer to take the next key typ ed on the 
keyboard and store it in a variable. 


This routine uses INKEYS with a loop so the 
user can only type in four characters. 
Another advantage of INKEYS is that the 
user does not have to press RETURN, and it 
does not put a question mark on the screen. 


INKEYS is not standard on ah computers. See the Guide to BASIC and check your manual. 



Screen display tips 

You can make your programs look really professional by arranging messages on 
the screen so they are clear and easy to read, and so that the screen looks 
interesting, 

Displaying messages 

A good rule to follow is always to display messages in the same area of the screen ; for 
example, at the top or the bottom, or centred in the middle of the screen. Wherever you 
choose, print all your messages there so the person running the program knows whereto 
look, You can do this with a message- printing subroutine, as shown below. 


BO CIS 

90 GOSUB 1000: REM INITIALIZATION 

100 LET Nt-' HELLO' 

110 S0SUB 490 
120 END 

490 REN KESSAGE PRINTING ROUTINE 

500 PRINT TABU,Y);CL4 

510 PRINT TABIT,Y)|H* 

520 RETURN 

1000 LET CL**" 1 

1010 LET T=coliun to print sassage 1 
1020 LET Y=Tine to print aessagE j 
1030 RETURN 


Message 


0 


Prints a line of spaces to clear 
old message off screen. 

Fruits message at column X, LmeY. 


On some 
computers you 
can use the 
command SPC(N)J 
to print N spaces,^ 
instead of CL$. 


Make CLS as many spaces as 
there are columns on your screen. 


For example* to print in the top left comer, 
make X-l and Y-1. 



PRfNTTABiX r Y) tells the computer to print 
at column X, line Y. This is not standard on 
afl computers so check your manual and 
the program conversions at the back of this 
book. _ . 


To use this message routine you need to 
put the number of the column and line in 
which you want to print your messages, in 
variables X and Y in the initialization part 
of the program- Y ou also need a variable 
CIS with as many spaces as the width of 


your screen* to wipe old messages off. 
Then each time you want to print a 
message, put the message in M$ and send 
the computer to the message -printing 
subroutine. 
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Centring messages 



To centre messages you need to add lines 
I 497 and 496 and replace line 1010, Line 497 
calculates the number of characters in MS . 
Line 498 subtracts this number from the 
number of columns on the screen, then 
divides by two. 1NT rounds the number 
down if the answer is not a whole number. 

I 



Make sure the 
messages 
are easy to 
understand 
and there are 
no spelling 
mistakes. 


Try not to leave the user looking at a blank 
screen. It is boring and they may thinkthe 
program has crashed. To avoid th is, don't 
dear the screen until you a re ready to print 
the next message. 



****##■**##**# * ■*#**■* ft#****--**-*-****- **■# # *■ ■# tf* ## * 


Displaying lots of information 

If you have lots of information to give the user, think of the screen as a piece of paper and 
arrange the information on it with a title and border. Use headings and paragraphs to make 
the text easier to read. When the screen is full, do not let it scroll (i.e. automatically move up 
a line) or this will ruin your display. Work out the number of lines you can display on the 
screen and when it is full, clear the screen and start again, repeating the title and border if 
you like (this will be easy if you have written them as a subroutine). 


Screen border routines* 

JO REM HORIZONTAL LINE 
20 LEI LM'HHHHtdc 1 
30 PRINT TAB(Jt,Y)iLl 


< You could use this routine to underline a title. Set upa 
variable with as many characters as there are in your 
title. Then set the variables X and Y in the PRINT TAB 
command, to print the line where you want it. 


ReplaceCD and CL withthe ASCII codes for cursor dowry 
and cursorleft for 


10 REN VERTICAL LINE 


yourcomputer 


20 LET V^ B t B +CHRt<C33)+CHR«(CLl After each star 


30 LET L$="* 

40 FQR 1=1 TO length of line 
50 LET LJ=Lt+Vi 
60 NEXT I 

70 PRINT TA&fJtpYl ;LI 


printed, the cursor 
codes make the 
computer move one 
position down and 
left, ready to print the 
next star. 




^This routine prints a 
line down the screen. 
Replace CD and CL in 
line 20 with the ASCII 
codes for cursor do wn 
and cursor left on your 
computer. Set X and Y to 
the column and line where 
you want the line to start. 
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90 REM BOX ROUTINE 
100 CIS 

no Eosua 400 

120 G0SUS 250 

130 EOSUB 200 

140 LEI Y*Y+ I ! GQSJB 250 

150 m 

195 REN VERTICALS 
200 FOR 1=1 TO H-2 

210 PAINT TABdfV^IMLI — Leftside 

220 PRINT TABCHN-l,y+I);Lli Right side 

230 NEST I 

240 RETURN 

245 REN HORIZONTALS 

250 FOR J=0 TO M 

260 PRINT TABU+MMLIi 

270 NEXT J 

2 SO RETURN 

395 REN INITIALIZE VARIABLES 


Use yourcomputer r s 
colour commandsto print 
coloured lines. 


Here is a routine to print a border at any 
position round the screen. You need to fill 
m the variables for the size of box you 
want. For example, for a box round the 
edge of the screen, make X and Y both 1 
and make H the number of lines on the 
screen minus 1, and W the number of 
columns minus 1. 


Centring text in a box 

Add these lines to centre text in a box 
drawn by the routine on the left. 


400 LET L*=*t* 


■ Or other character 


410 LET H-height of box 

420 LET N=MLdth of bos 

430 LET ^position of left side of bos 

440 LEI Imposition of top of bos 

450 RETURN 


145 eOSUB 300 
295 REN CENTRE MESSAGE 
300 LET C=IlflW‘LENlHt))/21 
310 PRINT TftBC X+E k Y-I lMT CH/21 ) ! N* 

L 32G RETURN 

405 LET flfHlfuge 
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See page 47 for help with convening the PRINT TAB commands m ihese routines 


Writing menus 


A menu is a way of letting t he user choose what pa rt of th e program t hey want to 
run, The menu consists of a list of options from which the user can select the one 
they want. You can then send the computer to the correct part of the program to 
carry out the task the user chooses The menu needs to be dear and easy to 
understand, and look interesting, On these two pages there are some ideas for 


ways to present menus. 


r 


SHAPEHAKER 


Mould you like to: 


1) DraK a shape 
21 Alter a shape 
3) Use a library shape 
4} Save a shape 


"1 


Please type the nuaber of your choice. 
Then press RETURN. 



J 


SPV HARTER BARE 
What would you like to do? 

>Play a new game 
See the clues 
Study the codes 

Please press A or I to love the cursor 
to the line of your choice 

Then press RETURN, 



When you are planning a menu, the main 
decision you need to make is how users are 
going to indicate their choices. The 
simplest way is by typing in a number as in 


the example on the left. Another way is by 
moving a cursor or other symbol to point to 
the choice. There is a routine tor a moving 
cursor menu on the opposite page. 


Telling the computer where to go 

To tell the computer which pan of the program to run you need to store the user’s choice in 
available- You can do this using INPUT fora number choice menu. For Ihe moving cursor 
menu you need to calculate the position of the cursor, as shown opposite. Then you can use 
the command ON GOSUB * to tell the computer which subroutine to go to, as shown below. 
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Please type 
the number of 
yourchoice. 


< -t>4C0 
2 -V450 
3“VS00 
+ H>S50 


GOSUB 

500 


You use ON GOSUB with a variable, as 
shown in the routine above, The value of the 
variable tells the computer which 
subroutine to carry out For example, if C is 
3, the computer will go to the third 
subroutine listed in line 300. 


200 PRINT 'SHAPEHAKER' 

210 PRINT 'Would you like to: 1 
220 PRINT 'll Oran a shape' 

230 PRINT *21 Alter a shape" 

240 PRINT '31 Use a library shape* 
250 PRINT *41 Save a shape' 1 
260 PRINT 'Please type the nuaber*; 
270 PRINT 'of your choice,’ 

2B0 PRINT 'Then press RETURN," 

2?0 INPUT C — 


295 IF C<1 OR 04 THEN 60T0 260 — 
3O0 ON C GOSUB 400, 4.50, 500, 5?0, 


User’s choice- 
Check input. 


Menu 


Noi all computers have the command ON GOSUB - see the Guide to BASIC. 


Word input 


Letter input 



f you want the users to choose by typing a 
word you need to store the words from 
which they can choose in an array (W5). Then 
compare the word the user types in, with 
those in the array. When a match is found, 
store the array subscript of the word in a 
variable (C) to use with ON GOSUE* 



To choose by typing a letter you need to 
convert the letter to a number which you 
can use with ON GGSUB. To do this, convert 
the letter to its ASCII code using the 
command ASC (or CODE on the Spectrum). 
Then subtract the number necessary to get 
a range of numbers starting with 1. For 
example, the ASCII codes for letters A to F 
start at 65, so you need to subtract 64 as 
shown in line 250 above. 


Moving cursor menu 

To use this routine you need to work out the TAB positions for each line of your menu. Then 
calculate the TAB numbers to position the cursor to the left of the first choice in the menu. 
You also need to know the number of lines from the top of the screen to the first choice in 
the menu, and the number of lines between each choice, * 4 


270 CIS 

200 6QSUB lOOEhREn INITIALIZE 
290 PRINT TAB(l)j B 5FYfMST£R BAKE" 

100 PRINT TUOKWM WOULD YOU LIKE TO DO?" 

310 PRINT TfiS(i # HUi*PLAY A NEW GAME 1 
320 PRINTsPRlNT TftB(l) 5 "SEE THE CLUES" 1 
330 PRINT: PR I NT TAB ( 13 J "STUDY THE CODES" 

340 PRINT 

350 PRINT TABU); "PLEASE PRESS A OR l TO MOVE THE" 

3M PRINT TABCili "CURSOR TO THE LINE OF YOUR CHOICE/ 
370 PR! HTi PRINT TABU); ‘THEN PRESS RETURN - 
m PRINT TAB f O f CY); 1 > 1 sLET 0Y=CY 
390 LET II=INKEYI;IF THEN GOTO 3^0 
400 IF AND Cf>NL THEN LET CY=CY-SP 

410 IF I*="I" AND CY<LC THEN LEI CY^CY+SP 
420 IF mm THEN PRINT TM(CI,DY) ! ■ 1 

430 IF ItOCHMU3) THEN GOTO 360 

440 LET C=1NT((CHL1/SP3 + I — 

450 ON C GO SUB 500^00,700 U 

495 END 

3000 LEI NL-4; LET NC=3:LET SP^2:LET CM 
1010 LET CY S NL:LET LC=NL-SP+(NC#SP3 
1020 RETURN 


M A $ T fi R 


, * r W O U 

+4“ n i 


u o 


GAME 

YOU 


A Y 


Nf £ vV Or A M 


T rt £ 


i ,44 s s . 

Study r h. 



_ Routine to 
move cursor 


RETUKN key = 
ASCII code 13. 

Calculates a 
value tor C to 
us e in ON 
GOSUB. 



CX- Cursor X position (column) 
CT = Cursor Y position (line) 
NL= Number of lines from top 
of screen to first choice in 
menu. 

SP= Number of lines bet ween i 
each choice. 

NC = Number of choices. 

LC = Line of last choice. 



+ If you have a Spectrum, see page 47. 

‘ # See page 4 7 for help with converting this routine. 


Speeding up programs 

Below there are some tricks to make programs run faster On the opposite page 
there are ideas lor ways to shorten or "crunch’' a program so that it takes up less 
memory space The shorter the program, the faster it will run, so if speed is really 
important you could use some of these space-saving tricks too. 

Most of these tricks will be undoing the features you have written into your 
program to make it easier to read and understand, so it is a good idea to save a 
copy of the program before you crunch it. You can use the copy if you get bugs in 
the crunched version, or if you want to develop the program later, Here are some 
tricks to speed up the running of a program. 



In a program with lots of subroutines, 
arrange the subroutines according to 
frequency of use, Put those which are used 
most often, just after the control centre of 
the program so the computer can find 
them quickly. If there is a routine for a task 
where speed is very important you could 
put this right at the beginning of the 
program, as described on page 10, 


If your computer has integer variables, 
that is, variables for holding whole 
numbers, use them whenever possible. 
Integer variables have a % sign after their 
name {see page 13). They take up far less 
memory space than ordinary number 
variables and are handled more quickly 
by the computer. 


Ord^fY 

fOil 3*1 TI 
pRlfTC 1 
i UtlT 3 


Shorten the program by deleting HEM 
statements and putting several statements 
on one line as described opposite. 


Always use integer variables ( if you have 
them) for loop counters, as described on 
page 13. They run twice as fast as those 
with ordinary variables. 

Try timing your computer with a stop- 
watch to see how long it takes to run an 
ordinary loop and an integer loop 500 times. 


Try ti in ing the two versions , 
of your prog ram to see how 
much faster the speeded up 
version is. 


Computer speed 

The speed at which a program runs 
also depends on the speed of your 
computer. The speed of a computer is 
measured in megahertz (MHz) and a 
2MHz computer works faster than a 
1 MHz computer. 

The speed at which they run 


programs also depends on how many 
operations they have to carryout to 
perform the tasks. This is controlled by 
the computer's software, i,e. the 
operating system which tells it what to 
do, and the interpreter which translates 
BASIC into the computer's own code . 
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Space-saving tricks 


The tricks listed below and over the page save a lot of memory space, butthey 
make programs difficult to read and debug. It is best not to use them until you have 
finished a program and it is running smoothly without any bugs. Save a copy ofthe 
program on tape or disk and if possible, printout a copy on paper to workon. 

You could use these tricks if, for example, you want to add more data to a 
program and you are running out of memory, or if you want to improve the 
graphics, or just make the program run faster. 



TOOLKIT 

Please type the nuiber of your choice 

I) Renuiber prograi 

21 Search and replace 

3) Merge programs 

41 List variables 

5) Hove lines 

&} C cap act prograi 

7) Delete REMs 


395 REM MESSAGE SUBROUTINE 
400 PRINT TA£t(I,Y);Mt 


IF A=C.U€tr PRINT 'YES" 

IF X=T THEN jSGTtT 270 
IF 1-V ..X«Br flOTO 270 
_L€fT=3 

IF RM00 THEtUff R-R-J 


Delete all the REM statements. These 
were only necessary to make the program 
easy to read and are not essential to the 
miming ofthe program. REMs on lines by 
themselves are easy to remove by just 
deleting the line. Make sure, though, that 
no GOSUB or GOTO commands send the 
computer to a line yon are going to delete. 


On most computers you can leave out 
certain BASIC commands, for example 
LET, THEN and GOTO, Check your 
manual as the rules vary on different 
computers r then go through your program 
and leave out these words. 


701 F| >J THEHPRl N.T 3 1-1 


'ANSW£R$, 


Leave out space after 
line numbe r. 

If you delete this 
space computer 
might read this as a 
variable NTOF. 


4QFQRI=N TAP 


You need These 
spaces, y 


Shorten all the variable names to one or two 
letters You have to be very careful doing 
this, because if you forget to c hange one 
occurrence of a variable you will get a bug 
Make sure, too, that ail the new variable 
names are different. This is why when you 
first write the program, it is best to make 
sure all variables start with different letters 


Next, leave out any unnecessary spaces. 
Each space takes one byte of memory, so 
you can save quite a lot by deleting them 
Be careful, though, as some statements 
need spaces to make them clear. 


More tricks over the page. 


Programmer's toolkits 

A programmer's toolkit is a special 
program you can buy to carry out 
these tasks. You load the toolkit 
program into your computer's 
memory and it will then offer you the 
choice of deleting selected words 
such as REM or LET, renumbering 
the program and searching for and 
replacing variable names. Different 
programs offer you different 
facilities. Here is an example of the 
range a good program would provide. 
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Checkyour * 
manual to see 
if you can use 
abbreviations. 


More space-saving tricks 


You can leave out the loop variable on 
most computers. The computer 
automatically assumes you mean NEXT j. 


On some computers you can use 
abbreviated forms of BASIC words, 
e,g. P. for PRINT Using these enables you 
to fit more statements in one program line. 
They do not by themselves , though, save 
memory space because the computer 
stores the shortened version anyway 


20CPR1NT" JUST ft MOMENT* :FQRI=11Wt 
fiEADflf < I ) :NEn SPRINT: PRIHT a F INI SHED 
GQSUB50Q 


After a subroutine the 
computer returns to next 
statement in line, \ 


90LETLI=CHRt (42) SBDSUBlQOiPRINTTAB 
E I , Y) IflSi iETLt“CHR$ (461 : BDSUB1 00 


Combine as many lines as possible into 
multistatement lines. Do not combine IF 
THEN or ON GOSUB with other statements 
which do not depend on them. Check the 
maximum line length for your computer It 
is usually 255 characters f that's six and a 
bit lines on a computer with a 40 column 
screen.) Make sure that subroutines still 
start on the lines stated in the GOSUB 
commands. 


After all these changes you may have to 
renumber the program. Check very 
carefully that all the subroutines and 
GOTGs go to the right line numbers 


C You can also save 
S memory space 
using the data tricks 
7 on pages 20-26. 


More about memory 

Most home computers have between 
about 32K and 48K of RAM end this is 
messes for even quite long programs. 
Some of the RAM, though, is always 
used by the computer for 
housekeeping tasks, that is, for storing 
information it needs while it carries out 
the program. This can take up to 3K and 
reduces the space available for the 
program itself. 

Also, in high resolution graphics 
modes, most computers need much 
more RAM space for storing graphics 
information. In the highest resolution 
mode this can be up to 2QK, which 
might only leave you about 1QK for the 
program. 


The largest memory an eight-bit 
computer (one which uses bytes made 
up of eight bits, ox signals) can have, is 
64K ROM and RAM combined. This is 
because each location in the memory 
has to have a number as its address 
Each address is represented by two 
bytes of computer code and the highest 
number that can be made with two 
bytes ( 16 bits) is 65535. This allows 
65536 locations numbered 0-65535 
which is 64K (65536-;- 1024). 

It is possible, though, to use more 
memory on an eight-bit computer by 
switching in different blocks of 
memory at different times. You can buy 
memory expansion units to do this. 





Flip-file program 


On the next few pages there is the listing for ihe Flip- file program The program 
illustrates many of the programming techniques described in this book, It isa 
complicated program, with lots of variables and subroutines. Each task is carried 
out by a separate section of the program and it is easier to study the sections 
separately. The program is written in a standard version of BASIC and conversion 
lines for the main makes of home computer are given at the end of the listing. 

How to use Flip-file 

Flip-file is a simulation of a card index file. The program is written to store names, addresses 
and telephone numbers, but you could easily con vert it to store other information. There are 
some guidelines lor doing this at the end of the program. 


FLIP— FILE 

NO CARDS IN FILE 

MOULD YOU LIKE TO; 

HIlllHtlHlilltHlilHIlHHUHtHUlI 

> ADD A CARD 
REMOVE A CARD 
ALTER A CARD 
FLIP CARDS 
LOAD CARDS 
FILE THESE CARDS 

HflHitltHHlHHIHHtMHIHIHfHtH 

OSE KEYS t 1 TO MDVE CURSOR UP & DOWN 

PRESS RETURN Ttt CHOOSE AN OPTION 

A 

When you run the program this menu 
appears on the screen- To choose, you 
move the cursor to the line you want, then 
press RETURN or ENTER. 

>Fl»p cards 

When you choose the Flip Cards option the 
computer displays each card on the screen 
and you can flip through them to find the 
one you want 

You can also tell the computer to search 
for a particular line on a card. To do this you 
select the Flip option, then press the (a key. 
A blank card will appear on the screen. 
Type in the item you want to search for, on 
the correct line for that piece of information. 

For example, if you want to find the cards 
for all the people who live in a part icular 
city, type the name of that city on the town 
line. Then press RETURN, The computer 
will flip through the cards until it finds the 
one you want. You must type the item you 
want to search for exactly as it is written on 
the card or the computer will not be able to 
find it. 

You can continue the search by hitting 
any key, or go back to the menu by pressing 
RETURN. 


r FLlP— FILE ' 

1 CARD UK CARD 1 

ADD A CARD 

IHHlHHllUHUtHHHUHilHmmHI 

NAME COMPUTER CLUB 
>S!REET 73* 

TOWN 

CQUNTY 

CODE 

PHONE 

INFO 

HHIHHIltmtimitlillltmilimHIif 
USE KEYS ( ) TO MOVE CURSOR UP t DOWN 
PRESS RETURN FOR MENU 

i J 

To write information on a card you move the 
cursor to the line you want. The * shows 
where the next character will be printed. 

>Alteracard 

To alter a card, choose the Flip option to 
find the card you want. Then go back to the 
menu and select Alter. The card will appear 
on the screen and you can use your 
computer's delete key to rub out words 


> Remove a card 

To remove a card you press the (« key. The 
delete message appears in the line marked 
INFO on that card. The card is removed 
when you save all the cards. 

>Load cards > File these cards 

You can save or load cards to and from disk 
or tape. The program conversion notes 
show how to alter the program to do this for 
the main makes of computer. If you are 
saving the cards on disk, each time you 
save a new set of cards, the old set will be 
wiped out- 
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Flip-file variables 

Below there is a list of the main variables used in the program. It may help you to refer tothis 
list as you study the program. 

To save memory space all the data for the cards is stored In a one -dimensional array as 
described on page 20. The array is called CS and each record (see page 30) contains all the 
information for one card. The first record is left blank as a spare card to use in the search 
routine (see previous page). 

To find information for a card the program uses the formula "card number X card length 
+ 1' This is the same as the formula given on page 20, except that it is not necessary to 
subtract 1 from the card number because the data for the cards starts at record 2 (record 1 is 
the spare card for the search routine). 


cs 

Cards array one - dimensional 
array to hold data for cards. 

MX 

Maximum number of cards 
allowed. 

MS 

Data for menu. 

ML 

Menu length i.e. number of 
choices. 

h$ 

Card headings. 

CL 

Card length no. of lines on each 
card. 

CARD 

Current card number. 

LAST 

Number of last card in file . 

1 SC 

Search card This the first record 
in array CS and at is used as a blank 
card on which users type items to 
1 search for. 

NC 

Number of cards to be stored in or 
Loaded from cassette or disk file. 

ND 

Number of cards deleted. 

KR 

ASCII code of key pressed- 

CHOICE 

User's choice from menu. 

IL 

Input length - maximum no. of 
characters allowed in input. 

B$ 

Buffer string- Temporary variable 
to hold input 

S 

Spacing, If S= 2 there is a space 
between each line on card. 


L 

For calculating line on which to 
prim cursor. 

OL 

Old Line - previous position of 
cursor. 

LMAX 

Lowest position for cursor, L.e. 
bottom of menu or card. 

DP 

Depth. Number of lines from top of 
card to first line of messages. 

TP 

Top of card, Le . first line of menu 
or heading on card. 

DENT 

Indent , i.e. column position for 
data on card. 

W 

Width of screen in columns. 

WS 

Vari able holding message felling 
user which keys io press. 

xs 

Variable for messages at top of 
screen. 

YS Z$ 

Variables for messages at bottom 
of screen. 

LS 

Line of stars. 

DS 

Delete message printed on card to 
be deleted. 

UP 

DOWN 

ASCII codes for keys to move 
cursor up and down . 

OTHER 

ASCII code for key to remove 
card. 

BACK 

ASCII code for backspace key to 
delete last character typed. 





Worker routine Control centre 


Flip-fife listing 


Here is the listing for Flip- file, Conversion lines for the computers listed below are given on 
pages 41-42. If you have another make of computer you may be able to adapt t he program 
by studying your manual and the conversions. 

Lines which need changing on all computers are marked 0 , Those which need 
changing on only some of the computers are marked with those computers 1 initials. Lines 
marked with a * contain PRINT TAB(X,Y) commands which need converting for all 
computers except the BBC and Electron. 


G: C64; V: VIC-20; A: Apple; T: TFS-8G Colour Computer with Extended BASIC; B: BBC; E: 
Electron; S: Spectrum 


t b REtt See TRS-80 conver s a ons 
EG GQ8U8l2iO!ftEM INITIALIZATION 
20 LEI Xt '‘MOULD YOU LIKE TO: 

3G LET LHAX=ML:LET ^CHOICE 
40 G0SUBI17O 
T A* 50 PRINTTAB IQ.TP ■ : 

60 FOR 1=1 TO ML 
A 70 PH1NTTABE1) ;H*Uj 
SO IF 9=2 THEhS PRINT 


20: Put message in variable X$ 

30: Set variables for line on whtch to 
print cursor 

40: Print heading and top message, 
SO: Set printing position to top of card. 

60-90: Print menu. IfS = 2. leave a 
space between each line. 

100-1 10 Sel up messages for bottom 
of screen. 


% NEXT I 

100 LET Yl=NI+ rt TG MOVE CURSOR L'F i GQHT 
IS 110 LET 2I=“F RE3S RETURN TG DHiJDSt AN 0P T IGH N 

120 60SUB1 140 

330 6CS*JB990:SF KP013 THEN GOTO 130 

j 40 le: choice =l 


1 20: Print messages ai bottom of 
screen. 

130: Subroutine to make choice by 
moving cursor. If CHOICE^ > 13 
(ASCII code for RETURN key), repeat 
subroutine. 

140: Set CHOICE to current line 
number of cute or. 


150 CHOICE’ 1 AND LB7=1W 'HEN LE" K!='F:lE 
C ULL-SAVE CARDS": GOTO 30 
160 IF LfiST=0 m CHOICE j m CHOICE- 5 r m 
LET CARDS in FILE": GOTIJ35 

m LET Al=rSiEH[JICE3fLE T im*a 

TS 130 LET Zl^'PAESS RETURN FDR MEHLi " : LET j*i 

s 2 90 CN CHOICE GO SUB 230 l 2?O,35O ! 39& ! ^:,e^ 

200 IF CHOICER THEN SOT 020 


ISO’l 60: If user chooses to add 
cards and file is full , or if there are 
no cards in file and user has not 
chosen option 5 (load cards) then 
prim message and repeat menu. 

1 70: Set XS message topnnt 
choice from menu. Sel LMAX to 
card length 

180: Put message in 2$ and sel L to 
print cursor on line 1. 

190: Go to Correct subroutine 
depending on menu choice. 


CVA 210 CLS: PR! NT "CARDS SAVES, m GRE 
NO LONGER !.N FLIP-FILE. 

! 220 STOP 

1“ 225 fiEM ADO A CARD r 0 F ] LE 
230 LET CARD=LASM 


200: Returns here after each 
subroutine and prints menu again 
if CHGiCEcS (File cards). 

2 10-220: Stop program after filing 
cards. 

230: Set card number to number of 
Iasi card in file. 


240 LEI LA5T=LAST+1 


240: Add one to number of cards 
in file. 


250 OQEUba 1 0: GDSUBl 14C 
260 GD5U&TO 

270 IF KP<H3 THEN GOTO 250 
I 260 RETURN 


250: Display card contents, then 
print lower messages 
250: Input routine. 

270: Repeat input rout me until 

KPEkey pressed) = 13 (ASCII code 

for RETURN). 37 



Worker routines 


— 185 REN DELETE ft CARD 
290 G0W8B1O 

300 LET KJs'PRESS “tCHS* (OTHER)*" TO - : LET Il=.(f 
310 GOSLBUIO 
320 B05U&890 

330 IF >;P=CTHER THEN LET ClOfiS*CLrCU=DJ:LET 
N[>=ND+lt&E)T0 290 
340 RETURN 

II — 345 REM ALTER ft CARD 
350 G05UBB10:SOSU61140 
340 GQSU&990 

3 JO if KR<>13 THEN GOTO 340 
II 330 RETURN 

! — 3G5 REIT FLIP THROUGH LftROS NAHUALLY 

390 LEI CARIM 

100 LET YJ=H*+" TO FLIP. ">[HRHOTH£R) 
r TO BEARGH'juBSUBSli) 

410 GOSUBlMOilET L=l: GQSUB99C 
420 IF KP=UP AND EfiflIKLftST THE ft LET GAflt}=CARD+l 
430 IF KP=BOUN AND CARDH THEN LET CARG=CARI-i 
440 IF rP=OTHER THEN 3DEUB«70 
450 IF KP 013 THEN GOTD4O0 
1 440 RETURN 

465 RE* SEARCH ROUTINE 

470 LET CT=CMD:LET CARB=SC 

480 FOR J-! TO Cl: LET CtiSC*I) = ,,, ;NEiT I 

490 LET ^’FLIP-SEARCH’ (LET Y1=’HDVE ’Oft LINE 
THEN TYPE SUBJECT" 

TS 500 LET IMPRESS RETURN TO GTftfiT SEARCH- 
510 60SJB810:GOSUS1140 
520 LET tf>=G:G0$l)B9?0 

530 IF EUSOU^’ THEN LET CARD'CT: RETURN 

540 LET VI- 1 SEARCHING FOR; '*C( 1SC+L) :LET 
2J-"PRES5 ANT k£v 10 CONTINUE" 

330 LET KP=0: LET FDUN0*O 

560 FOR I=J TC LAST 

570 LET FLftG-0 


5 BO IF Ctl|*CL+L)=Ci(GC*L) THEN l£T CT-Ii .El FLAG 5 ) 


290: Display card contents. 

300: Messages to print at bottom of 
card. 

310: Print messages at bottom of 
card- 

320: Move cursor and read ASCII 
code of key pressed. 

330: If key pressed is ASCI] code 
for key to remove a page, let last 
item on card = D5. 

350: Display Card contents and 
lower messages. 

300: Input routine. 

320: Repeat input routine until 
user presses RETURN. 

400: Set up messages. Display 
card contents, 

410: Display messages. Set cursor 
to line I . Go to cursor moving 
routine- 

420-430: Adjust card number 
depending on which key is 
pressed. 

440: Go to 470 if user chooses 
search routine. 

450: If key pressed <> RETURN, 
repeat flip routine, 

4ZQ: Store card number in 
temporary variable CT. Set card 
number to SC, i.e. card 0 which is 
record 1 in array C$. 

480: Clear search card. 

490-500: Messages 

510: Display card contents and 
print messages. 

520: Clear KP and go to input 
routine 

530: Abandon search routine if 
user does not type anything. 

540: Print searching message. 
C$(£C+L) - item user is 
searching for. 

550: Clear variables. FOUND - 
variable to record number of 
times item is found- 

560-630: Loop to search through 
cards. 

520: Clear variable FLAG which is 
used to indicate when item is 
found. 

580: Iflineoncard = line on 
search card, set CT to loop index 
(i.e, card number) and set FLAG to 
l 

590: Set card number to loop 
index in order to use variable 
CARD in subroutines 310 and 1 140. 
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Service routines Worker routine & 


*00 &QSU8810;BOSUBmO 

610 !F FLftG=! THEN E05UB 940 : LET FQUND-FOUilD+l 
620 !F KP= ] 3 THEN LET ]=lAST 
630 NEXT 1 
640 LET CARD-CT 

650 LET Kl=*BEARCH MR-jGOSUBI 170 


640 IF FOUNIM THEN LET Zf='F0UWDf "'STfit 
imm** TIMES 

670 IF FOUND =0 T H£N LEI ZI^&IDN T 
FIND! "fCKSC+U 
i&O RETURN 

— 695 RE It im m SAVE CARDS 

• m IF CHOICER THEN epen File for 
input: input# , NC 

• 700 IF CHQICE=6 THEN open file for 
output s pr int i i LAST-tfD 

A 710 GOSUBl I70:G0SUB1 J40 

S 730 LET M; IF CHOICER THEN LET 
MJBTiLET LAST-LASI+NC 

S 730 LET J=J+1 

S 7^0 FOR K=1 TO CL 

• 750 IF CHQICE=5 THEN input!, Cf IJ*CL^K3 


• 760 IF CHOICE =6 AND Cf IML+CUODI THEN 
Dfjnti, CS(JtCL«> 

S 770 WEJCT Y 

S 780 IF Ml AND JXLAST THEN EDT0730 

• 790 dose file 
! — BOO RETURN 

— 805 REM DISPLAY CONTENTS OF CARD 
920 BOBUB 1170 
ta* 320 PRINT TA6(0jP)i 
930 FOR K=J TO CL 

&4Q LET TJ=CnCARDtCL+K) 
a 850 PRINT TABUIjHKKI jTABtDENTIjTf 
860 IF S=2 THEN PRINT 
870 KIT K 
_ 890 RETURN 

r “ 885 REM MOVE CURSOR UP 4 D3KN 
★ 890 POTTA&tOJfML-mS); - ^ 


600: Display card contents and 
lower messages. 

610: If item was found go to input 
r omine for next instruction. 

620: If key pressed = RETURN set 
loop index to final value to 
terminate loop as described on 
page 17, 

640: Sec CARD to number stored 
temporarily in CT. 

6S0: Print Card heading and top 
message, 

6 G 0-6 ZO: Check FOUND variable 
and put message in ZS. STRS 
converts a number variable to a 
string variable. 

680: Back to 450. 

690: If CHOICE-5 (Load cards) 
open a file called F$ (FLIFDAT) 
and load item NC (the number of 
cards stored in file). 

700: If CHOICE = S (File cards ) 
open file called F$ (FLIFDAT) and 
save the number of cards less 
number of deleted cards. 

7 1 0: Display messages top and 
bottom, 

I ZD: Set loop couni er J to 0 or, for 
loading cards, to current number 
of last card. This is the beginning 
of a repeat'until loop (see page 
16). 

740: Loop to repeat once for each 
item on a card. 

750: Load data into array C$ using 
formula described on page 20. 

]= record number, CL - record 
length and K= item. number. 

760: If last iiem on card <> DS 
(delete message) save item in file. 

780: Repeat loop if J is less than 
maximum cards allowed and less 
than last card number 

790: Close file, 

810: Prim heading and top 
message. 

820: Set printing position lo top of 
card. 

830: Loop to repeat once for each 
item on a card. 

840: Uses formula described on 
page 20 to copy data for next line 
of card into variable T3. 

850: Print card heading US 
followed by T$ 

860: If S= 2, leave a blank line. 

890: Print cursor symbol next to 
first line of card or menu . 
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Service 


900 LEI Ql=L 
910 GQSUB9&0 

920 IF KP=UP AND L>1 THEN LET L=L-I 
930 IF KF=DQNfc AND Kim THEN LET t=L+l 
* 940 IF LOEJL THEN PRINUABiOjP+IDL-lhS); " a ; 
950 RETURN 


I — 955 REM WAIT FUR S KEY TD BE PRESSED 


cv 


ABE 

S 


940 LET AJ-iHKETSiIF AI= B " 
970 LET KP=flSC t AD 
930 RETURN 


THEN GOTO 140 


— m m INPUT ONE DR NOPE LINES OF "!L M LENGTH 
990 LET L= 1 : LET 0L a l s LET Bl= HB 

1000 LET GS=[fiCARML*U 
S 1005 RE It See Scectru* conversions 
1010 LET BL S L£N[BI):LEI I =0 


1020 IF ei’JL AND KPOUP hND KPOKMIf 
m LP< BACK. AND KP>31 THEN LET * = ] 


1030 IF 1=1 T HEH LET IMt+DMHKP} 

AS 1040 IF KP»BACK AND 0L>O THEN LET 
3f=LE f II(B$ T BL-n 

* 1050 PRINT TAB(&EN? t TP+IL-.ll*5)j&ir # “i 
1060 GDSUB890 

1070 IF LOOL OR KP=l3 THEN BQSLJB1100 
mo IF KPOIS THEN gitdioio 
1090 RETURN 

1095 RE* UPDATE HARD WITH LINE TVRED EN 
1JOO LET C*[CARCiCLtOU=B$ 

★ S 1 10 PRINT TAB(DENT,TP+lOL-iUSl;Ci[»ftS*EL+OL)l B 
1120 LET BMCtiMRB*CLH) 

S 1125 REM See Spectra* conversions 
_ 1130 RETURN 


“ 1135 REM DISPLAT PROMPTS AT BASE OF SCREEN 

★ 1140 PftlNTTABfGpTP+DP) ;$l; 

★ 1150 Pfl INTTfiB tO , TP+DP) ; ; 

— 1140 RETURN 
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I — 1145 REM GENERAL SCREEN LAYOUT WITH CARD NUMBER 
CV A 1170 ELS 

1 1 SO PRLNT "FLIP — f HE " 

1385 IF LAST=0 THEN PRINT M H0 CARDS IN C !LE" 
i v 1190 IF LAST >0 THEN PRMilASTj" CARDS" : 


900: Record current line number 
of cursor invariable Ql, 

910: [NKEYS routine. 

920-930: Calculate L (new position 
for cursor) depending on which 
key was pressed. 

940: If current cursor position < > 
QL, wipe out cursor at position OL- 

900: Put character for next key 
pressed into AS. 

970: KF- ASCII code of key 
pressed. 

990: Set cursor line number and 
old line number to 1 and clear B5 to 
hold new input. 

1000 : Put any data already in line L 
intoBS. 

1010: Count characters in E$ and 
record in BL. X is a flag variable to 
indicate when key pressed is a 
valid character to store in ES. 

1 020 : Set flag variable X to 1 if B L 
< max. input length and key 
pressed < > key to move cursor 
up or down, or to delete characier, 
and KF is > 31 (he. a printable 
character) 

1030: If X= Ladd character KPto 
BS. 

1040: If user presses delete key 
and BL (length of BS) > 0 then slice 
off last character from BS. 

1050: Print BS followed by prompt 
symbol" * 11 

1060: Subroutine to move cursor 
and input next character. 

1 07 0: If user has moved to a new 
line (L< >OL) or pressed 
RETURN, go to subroutine to pul 
latest input into array C$ 

1080: If user has not pressed 
RETURN, repeat input routine. 

1100: Pul BS into array C$ 

Subscript is calculated using 
formula described on page 20. 

1110: Print line just put into CS. 
foUowed by space to wipe out " 
symbol. 

1 120- 1 130: Put data in line L 
(emtent position of cursor) into BS 
then return to 1080 and from there 
to 1010 to receive next input. 

1140: Print two lines of spaces to 
dear lower message area. 

1150: Print messages 

1180-1190: Print heading and 
number of cards. 



Initialization Soviet routine 


1200 IF CARD<H)t+l AND LAST >0 'HEW 
PRINT' CARS VCAfiB;* 1 
1210 LET JC=W2-fL£NlII>/2) 

1220 PfllNTIABDICliKt 
1230 PRIATL* 

* 1240 PftlNTTABlOJPtDP-lljLt 
1250 RETURN 

| — 1255 REP sNlTIALUftTEON 
2 260 6QSUB1440 

1270 LET 111=30: LET 5C=(':LET CL=7: LET Pll^i 
S 1230 DIN CKIHtCL) 

s 1290 DIN menu, hi <CU 

1300 DATA* ADD A CfflDVflEHflVE A CARD', 'ALTER A [ARE" 
1310 DATA-FLIP CARES', "LOAD CARDS’, ’FILE THESE CARDS’ 
1320 FOR ]*1 TO KL:R£AD PI illjNEKT I 
13 JO DATA "NAME 11 , ‘STREET". "TOWN COUNT - " , 

’CODE", "PHONE", "INFO* 

1340 FDR 1=1 TO CL: RE AS HtllljNEIT I 

1350 LET LAST=0:LET CARD-1;LET HD*0 

1360 LET F1=-FU PEAT' ; LET D$="! CARD DELETED !" 

1330 LET CHOICE- 1 

at 1390 LET (JP=A£Ci"[")r LET DDWNWJ'lslET 
“S QTHEft=ASC[-0">: LET MCK*» 

1400 LET HJ=* USE ‘tCHR4TUP)+* "+CHRtiD0HNJ 
1410 LET U="“:FDfi 1 = 1 TO l»: LET Lf=Lt+'*":HEn I 

1420 LET S*=“"!FOR 1 = 1 TO H*2:LET St=St+" ":NETT I 

14 JO RETURN 

1435 REN SCREEN SET UP DETAILS 
Vts 1440 LET IMQ:LET TP=5: LET DF=15 
VT 1450 LET 5=2 

T 1460 LET M=H72:LET BEN!=9:L£T JL=H-0ENT-2 

1465 REN See CafiadGrei Apple, SEC Electron conversions 
_ 1470 RETURN 


1 200: Indicate current card 
number a F not more than 
maximum. 

1 2 1 0-1220: XC is column in which 
to print message X$ cenired in top 
left side of screen. 

1230-1240: Print line of stars 
below message and across 
bottom of card. 

1260: Subrout me with computer- 
specihc screen details, 

1270-147Q; See variables chart for 
meanings of variables. 

1 200: Sets up one-dimensional 
ana y CS to hold MX x CL items. 

1 300-1320: Choices for menu and 
loop to read (hem into MS. 

1330-1340: Headings for cards 
and loop to read them imo H$. # 

1363: FLJPDAT is the file name 
used for saving cards. 

13901 Puts the ASCII codes (or 
keys chosen to move the cursor, in 
variables UP, DOWN. BACK and 
OTHER 

140O: Puis message and symbols 
for keys chosen to move cursor, 
int o variable WS . 

1410-1420: Sets up variable L3 to 
print line of stars across screen 
and SS to print two lines of spaces 
to wipe out messages. 

1 460: IL (no. of characters you can 
type in a line ) = width of screen 
minus left-hand margin on card 
minus 2. 


Altering the program 

To alter the program to store different 
information, you need to change the data 
for HS in line 1330, to the headings for your 
cards. If you have a different number of 
headings you must also change CL in line 
1270, If your headings contain more 
characters than the ones in Flip-file, you 
will need to change the variable DENT in 
line 1460. 

Flip-f He is written to hold 30 cards, but if 
you have enough memory you can increase 
the number of cards by changing MX in 
line 1270. Each full card takes about 200 
bytes on a computer with a 40 column 
screen, and 100 bytes on a 20 column 
screen. The program itself is about 4 '/aK, 
so you can work out how many cards your 
computer will hold. 


Flip-file conversions 

BBC, Electron 

690 IF CHOICE'S THEN FILE=DP£MN Ft ; INPUT 

IFILE.NC 

700 IF CHOICE'S THEN FILE=0PEJI0UT FI 
:PRINT*FlLE,LASr-N0 

750 IF CHOICE'S THEN IHPUTIFILE.Cf IJ*CUKI 
760 IF CHOICE'S ftND Cl UtCl+CDODt THEN 
PR]NTIFIL£,CI(J*CL+KJ 
790 CLDSEIO 

960 LET AtsINKEYI (0) ; IF A!=’" THEN GGTO 
960 

1390 LET UP'ASC ('[’)? LET D0NH=A5C(’]’I :LET 

other=asc t m v islet back=i27 

1465 NODE 6 

1466 *FJ4,1 

1467 VMJ23: B202;0:0:Q; 41 


For countries other than Britain you can change COUNTY io STATE. 


Continued over the page. 



Flip- file conversions 

C64, VIC-20 (* VIC-20 only) 

Convert PRINT TAB(X.Y) commands using 
method given on page 45. 

215.1170 Replace CLS mth PR J Nr CHRtii47>! 
640 IF CHOICE'S THEN OPEN l T J,5,F<: IKPUT#! 

,NC 

700 IF OtOICE'b THEN OPEN J , 1 , 1 , FS : Pfl 3 N’# I 
,LAST-ND 

750 IF CHOICER THEN INPUT# 1,C*[J*CL+K1 
752 IF CHOICE'S AND CIIJeCL»KI>"! !’ THEN 
LET C$(J*CL+KI= N " 

755 IF CHOICE'S AND C#U*CL*KI="‘ THEN LET 
Ct(J*CL+K)'V ! * 

745 IF CHOICE'S 4ND CIIJ*CL*CLlOBt THEN 
PRINT! 1, Cl (J*CLFK) 

790 CLOSE 1 

945 SET At: JF «■" THEN GOTO 960 

* 1195 IF LAST >0 THEN PRINT ; LAST ; "CARDS'; 

* 1440 LET H=;?:LET TP=S: LET DP=I0 

* 1455 LET 5=1 

1465 LET CI=*";F3R 1=1 TO 30:LET Cl'CI 
+CHRt(17!:HEIT I 

Apple 

Convert PRINT TAB(X.Y) commands as 
described on page 45, changing TAB(O) to 
HTAfll. 

50,320 Leave out seisicalons 
75,350 Change TABtll to TABI2I 

210.1170 Replace CIS mth HONE 

S90 IF CHOICE'S THEN PRINT: PRINT 6*! "OPEN" 
♦FtiPRlNT Gtj ’READ" ;Ft; INPUT NC 
705 IF CHOICE =4 THEN PR] NT: PRINT BIROPEN" 
;FI:PRIN! Gt; “WRITE"? FtiPRlNT LAST-ND 
710 Leave out thj s 1 jne 
755 IF CHOICE'S THEN INPUT CKJ#CL*K) 

740 IF CHOICE '4 AND CIIJ*CL+CL)ODI THEN 
PRINT CliJ*CL*Kl 
795 PRINT Gf; "CLOSE"; FI 
965 LET Ai="*:lF PEEK (-16334) >127 THEN 
SET A! 

965 IF 4t=" THEN SOTO 940 
1045 IF KP'BACK AND BL>1 THEN LET flt= 
LEFTI(B*,BL-1I 

1545 IF BL'l AND KP=BA[K THEN LET Bl="" 

1395 LET UP'ASCrCliLET DOWMSCI'I'ltLET 
OTHER* ASC(‘i"):LET BACK'S 
1465 LET 61' ‘CTRL 5" 

F r ess CTRL and D keys together. 


TRS-80 Colour Computer 

Convert PRINT TAB(X, Y) commands as 
described on page 45. You will need to put 
brackets round the Y expression. 

4 CLEAR 0000 
50 PfiINT«2#TP,*"} 

115,185,550 Change rord RETURN to ENTER 
490 IF CHOICE'S THEN OPEN T,#-1,FI 
i INPUII-I ,NC 

750 IF [HDICE'6 THEN OPEN "0",#-l,FJ 
:PRINT#-I,LAST-N0 

750 IF CHOICE'S THEN INPUT#- 1, Cl (J*Cl*K) 

760 IF CHOICE=6 AND CIIJ*CL*CLK>Dt THEN 
PRlNTl-l t CH3*CL+K) 

790 CLOSE!-! 

820 PRINT*32*TP,""; 

1390 LET UP'ASCCThLET BOWN'ASC (")"): LET 
OrHER=ASCI"S'l:LET BACK'S 
1440 LET *4=32: LET TP=4;LET DP'S 
1450 LET S={ 

I4b0 LET N2'H/2:LET CENT=9:LET lL=N-DENT-3 

Spectrum 

You cannot delete cards as the Spectrum saves 
all the cards, including the deleted ones, Use 
the Alter option to change cards you do not want. 

Change PRINT TAB(X, Y) commands as 
described on page 46. 

115,180,500 Charge «crd RETURN to ENTER 
185 LET C'CHDICE 

195 68SUB 235*tE'l)+290*tC=2)+350*(C=3)+ 
395* [C=4l *695*104) 

690 IF CHOICE'S THEN LOAD f* DATA NOsLET 
NC'N[I):LQAB Ft DATA CIO 
700 IF CHOICE'6 THEN LET N ( 1> -LAST j SAVE Fl 
DATA N ( 1 i SAVE Ft DATA Cli) 

725 IF CHOICE'S THEN LET LA5T=LAST*NC 
735-795 Leave out these lines 
975 LET KP'CDDEiAt) 

1055 IF LEN(3t)>l AND BIILENIBDI'* * THEN 
LET Bt'BK TO LENIflD-iltGOTD 1005 
1040 IF KP'BACK AND 0L>1 THEN LET Bt 
=BJi TD BL-1) 

1125 IF LEN(Bt)>! AND BliLEM(EI>)=' * THEN 
LET 61'Bti TO lEN(Bt)-i):60T0 1125 
12B0 DIN CJ(IT4*CL 1 22):DIN Nil) 

1290 DIN Nf(HL,16kDlN HHCL,4> 

1390 LET UP-CODE "!":L£T DflHN'CODE ")“:LET 
OTHEft'CODE "A": LET 6ACK'l2 
1440 LET 14=32: LET TP=5:LET DP=14 
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Guide to BASIC 


On the next two pages there is an alphabetical list of the BASIC commands used in 
this book, with short explanations of what they do The commands which vary on 
different computers have a star beside them and the conversions for the main makes 
of home computer are given on page 45. 


AND This is for giving t he computer 
more than one test in an IF THEN 
instruction The instructions after THEN 
axe only carried out if both the tests linked 
by AND are true. 

IF m m T(100 THEN PRINT "TRUE" 

'ASC Gives the ASCII code number of a 
character 

PRINT ftSCm ASCII code 

74 ^ of letter f 

CHR$ Gives the character for an ASCII 
code number 
PRINT CHR! (741 
J 

*CL$ Clears the screen 

DEF FNname This is short for "define 
function”. You use this command to tell the 
computer how to carry out a certain 
calculation. Then, each time you want it to 
do that calculation you use the command 
FNname. The example tells the computer 
how to convert miles distance M to 
kilometres. PRINT FNKILO prints the 
answer for distance D. 

DEF FNKII>Ntl.40f3 
INPUT D 

PRINT FNKHOm 

DIM Tells the computer how much space 
to set aside for an array. For example, DIM 
D$(30) sets up a one -dimensional array for 
30 items of data. * DIM M{ 4.7) sets up a 
two-dimensional array for 28 items of data 
arranged in four rows of seven columns, 

END Stops t he program running 

ELSE This tells the computer what to do if 
an IF THEN test is not true. 
sF THEN PRINT I ELSE LET 
If your computer does not have this 
command you have to put the alternative 
instruct ions on a new line with another 
IF THEN statement. 

IF K>Y THEN PRIKT l 
[F THEN LET 1***2 


FOR TO NEXT These tell the computer 
to repeat a set of instructions a certain 
number of times. This example repeats 
the PRINT J instruction five times. 

FDR 3-1 TD 5 
PRINT J 

m\ j 

GO SUB Sends I he computer t o t he 
subroutine which starts at a certain line 
number. At the end of the subroutine the 
command RETURN makes the computer 
go back to the instruction after GOSUE. 

100 GG$L r B 200 

no PRINT "NEK! INSTRUCTION PLEASE" 

200 PRINT "THIS IS A" 

210 PRINT ■SHORT SUBROUTINE* 

220 RETURN 

GOTO Sends the computer to a specified 
line number from where it continues to 
work through the program instructions. 

IF THEN Makes the comput er test so me 
data and if the test is true, carry out the 
instructions following THEN You can use 
the following symbols to test data: 

= (equals); <> (not equals); > (greater 
than); < (less than); >= (greater Chan or 
equal to); < : (less than or equal to). 

IF m THEN PRINT "I IS BIGGER" 

* INKEYS Tells the computer to read the 
next character typed on the keyboard In 
the example, the character is stored in the 
variable AS. 

LET A£= INYEY1 

INPUT Makes t he computer watt for the 
user to type in some data The data is 
stored in the variable given after the 
INPUT command. 

INPUT !l 

I NT Converts decimal fractions to whole 
numbers by ignoring all the figures after 
the decimal point 

PRINT I NT (5. 6093) 

5 


" F or si ring arrays on t he Spectrum you must also tell the computer the length of the longest si ring. E g. 
DIM DS(30 , ,X) where X is the number of characters in (he longest item of string data. 



* LEFTS Takes a certain number of 
characters from the left of a string PRINT 
LEFT${A$ P 3) prints 3 characters from the 
left of A$. 

Als-ttCDEF' 

PRINT LEFT* ( At, It 
fi&C 

LEN Counts the number of characters in 
a string, 

LE* Al^A&DDEF" 

PR]NT itmt) 
h 

LET Puts some data into a named 
variable 

LEI BP h N3GHTINEALE" 

LET R=5 

4 MIDS Takes a cenain number of 
characters from a string, starting with a 
specified character. The example prints 3 
characters from AS. starting with 
character number 3 

LET AS-'ABC&EF' 

PRINT Ml 8 *fA* t 3 , 2 ) 

CD 

*ON GOSUB Sends the computer to a 
part icuJar subrout ine de pe nd i ng on t he 
value of a variable . In the exa mple, if C 3 
the computer will go to the thud 
subroutine listed after GOSUB, Le, the one 
starting at line 350. 

CN C GOSUB 100,170* 250,400, 700 

OR This is used in IF THEN instructions to 
give the computer more than one test. 
When tests are linked with OR the THEN 
instructions are carried out if either test is 
true. 

IF K V OP ¥>100 THEN PRINT "TRUE' 

* PE E K Makes t he compute r look at the 
contents of a particular memory location. 
PRINT PEEK(address) prints the contents 
of that location. The BBC and Electron use 
PRINT ?address instead of PEEK 

’POKE Stores a number in the memory 
location specified in the command. E.g. 
POKE 4057,64 puts the number 64 into 
location 4057. The BBC and Electron use 
74057-64. 

44 Ptjf.E 4057,64 


P RI NT Tells t he computer t o display 
some data, or the result of a calculation, on 
the screen By itself, PRINT leaves an 
empty line. 

PRINT "ANSWER* 

PRINT LEN :B$s 

^rih: 2z» 

READ DATA The command READ tells 
the computer to store the data listed in 
lines starting with the word DATA, in 
variables or an array. It is usually used 
with a FOR NEXT loop to repeat the READ 
instruction. 

f[y *3 l 

=e-: Bin 

\[Y T T 

REM This is short for re minder or 
remark. The computer ignores anything 
following the word REM and it is used to 
put explanatory notes in a program. 

RE STORE This is used with READ and 
DATA. Each time you use the command 
RE AD the computer reads the next item in 
the data list. The command RESTORE 
makes it start reading the data from the 
beginning again. Some computers have a 
command RESTORE ‘line number 1 ’ which 
makes them read the data from a 
particular line onwards, 

RETURN See GOSUB 

’ RIGHTS Takes a certain number of 
characters from the right of a string. 

_E T At= *fiBCD€F “ 

PRINT RIGHT* i At, :? 

OFF 

STEP This tells the computer how to 
count the repeats in a FOR NEXT loop. In 
the example the computer counts to 6 in 
steps of 2 and so repeats the loop three 
times. 

F0F 1 = 3 TD 6 5 T E* Z 
PRINT J 
NEXT J 

VAL This tells the computer to treat a 
string as a number and is useful when you 
have stored numbers in a string variable. 

LET 

r T ft _ • i h r - fl * J 


Conversion chart Where no conversion is given, the compute ruses the standard command. 

I Standard BASIC I C64/VIC-20 I Apple I TRS-80 [ BBC/Eleclrori [ Spectrum 












Converting the routines in this book 

On these two pages there are some conversions to help you run the routines in this book on 
the following makes of home computer: Commodore 64, VIC 20, Apple, TRS-80 Colour 
Computer with Extended BASIC, and the BBC, Electron and Spectrum. If you have another 
make of computer you may be able to convert the routines by studying your manual and the 
listings given here. 


Page 17 Spectrum Loop tricks 

For the Spectrum you must tell the 
computer how many characters to look for 
in D$, as shown below . 

30 IF DtiJH TD LEN(Rf))=Rl etc- 

Page 21 Spectrum Password routines 

You can only save arrays as data files on 
the Spectrum, you cannot save variables. 

In the Password routine, you can store the 
Password in an array, as shown below 

REM FASStfORB ROUTINE 
DIM Ptfl,rro. cl characters) 

LET PtUJ^piilwrtT 

SAVE "Tile naie 1 DATA PtO 

Save data to saie file 

Line 20 sets up an array PWS with one 

element You need to fill in the number of 

characters in your password. 

REM CHECKING PA5SHDRD 
PRINT ‘PASSWORD PLEASE 8 
INPUT 01 

LOAD "file naie B DATA PH) 

IF QiOPSU! THEN LET PIS 1 }*“ b ! nek 
You need these lines for the Password 
checking routine. 

Page 23 Number packing trick -TftS-80 

On the TRS-80, if you have more than 200 
numbers you must make space in the 
variables area of the memory using the 
command CLEAR followed by the number 
of numbers you want to store. 


Page 23 Spectrum nu mber packing 

For the Spectrum, you must store the 
numbers in an array called P$, so that you 
can save it as a data file. To do this, alter 
the program as shown below. 

5 DIN PS £ 1 1 no* af fiuibersi 
40 FDR 1=1 TO no, of nuibers 
70 LET Pill, [)=CKRf( AMOUNT III I 
80 NEXT I 

% PRINT CODECPf Ei f 2in 
126 SAVE Mite DATA Pf 0 

Delete lines 100, III}, 130 and 140- 

This sets up an array PS with one element 
to hold as many characters as you have 
numbers. You are reserving memory 
space by using an array so you do not 
need to fill P$ with stars. Lines 60-80 put 
the character code for each of the 
numbers stored in array AMOUNT, into 
array P$. Line 90 prints the ASCII value of 
the 21st character in P$ Line 120 saves 
array P$ as a data file. 

In the routine to use PS you need to 
replace lines 10-50 with the following two 
lines: 

30 Gift Pill, no* of nuibErs! 

20 LOAD "file name" DATA PI I) 

Page 27 Checking input 

For the Spectrum you need to tell the 
computer how many characters to check. 

230 IF AtriWUM ID LEN(Atl) THEN LEI 1*1 


Page 27 IN KEYS trick 

This routine will run on the TRS-80. Here are the conversions for the other computers. 

C64, VIC 20, Apple Spectrum 

440 GET Hi IF I*= B - THEN GOTO 440 450 LET CK=C0DE4I*» 

BBC, Electron 465 FOR T-! TO 90: REIT T 

m LET 1 t=1NKEYt (0) s IF lt= Bl THEN GOTO MO 

475 PR I HI 


46 




Pages 28-29 Screen display tips 


These routines will run on the BBC and 
Electron. Here are the conversions for t he 
other computers. 

C64, VIG20 

These conversions use the PRINT TAB 
method described on page 45. 

Message routine 

80 PRINT OMM47) 

508 PRINT CHRtll9M LEFT»(tt f Y) ;SPCU) iCLi 
538 PRINT CHRi ( 1?) ; LEFT! tC(,m5PCm; 111 
1025 LET CI="‘:F]R 8*1 TO no. of lines on 
scrtemLET C»=Cl+CNR*(171:NEIT J "i 

^5 for C64; 23 for VIC 20. 

Horizontal line 

25 LET Cl=as line 1825 above. 

30 PRINT CHM(l?HLEFTHCM>JSPCm;il 

Vertical line 

Cursor down - 17; cursor left = 157 

25 LET Dt=as line 1825 above 

70 PRINT CHftl (191 [LEFT* (Ct , Y I ! SPC f )! ) i Lt 

Box routine 

100 PRINT CKRI (1471 

210 PRINT CHRtU9];LEFTt(Ct,Y*I>;5PC(X)|LI 
220 PRINT CHRIII?l;LEFT$(C< ( VMl; 

SPC(1*H-1) ;Lti 

248 PRINT CHft* ( 19) HEFTItCVliSPCIX+J >SL*i 
445 LET C«- as Tine 1025 above 
Centring text 

310 PRINT CHR! < J?} pLEFTI ([l,V-|NT IH/2H ! 
SPCU+CISHI 

Apple 

Message routine 

00 HONE 

500 HTAB X : VTAB 7: PRINT HI 
510 HTAB HVTAB 7: PR INI M 

Horizontal line 

30 HTAB K:VTAB 7: PRINT Lt 

Vertical line 

Cursor down = 10; cursor left -fi, 

70 HTAB YiVTAB 7: PRINT L* 

Box routine 

100 HONE 

218 HTAB KtVTAB Y+h PRINT Li 
220 HTAB I+H-lilfTAB t+IiPRINT Llf 
240 HTAB X+JtVTAB YtPRlNT LI; 

Centring text 

318 HTAB l+CiYTRB 7-INT(H/2)tPRlNT HI 


TRS-80 Colour Computer 
Message routine 

500 PRINT B32*Y+1,CLI 
510 PRINT 832*7+1, Ml 

Horizontal line 

30 PRINT 132*7*1, LI 

Vertical line 

This routine will not work on this 
computer. 

Box routine 
210 PRINT Lt 

220 PRINT 8J2*(Y+n*I*IH,Lli 
240 PRINT 832*7+1*1, Lii 
Centring text 

310 PRINT 8::*!Y-!NTIH'2I !+!+:, Ml: 

Spectrum 
Message routine 

500 PRINT AT Y,1;CLI Change CLS 10 Ct 
510 PRINT AT 7,11111 p^ eEND<0 

Horizontal line 

30 PRINT AT Y,X;Ll 

Vertical line 

You cannot use this method on the 
Spectrum. 

Box routine 
230 PRINT AT Ytl,l;ll 
220 PRINT AT Y+I.X+N-liLtl 
240 PRINT AT 7,*+J;ii; 

Centring text 

110 PRINT AT Y-lNT(Hf2),I+C;H* 

Page 31 Word input 

For the Spectrum you need to tell the 
computer how many characters to 
compare. 

320 IF Nil J) 1T0 LEW (At) MAI THEN LET C=J 
You will also need to convert the ON 
GQSUB command as described on page 
45. 

Moving cursor menu 
C64.VIC20 

278 PRINT CHRMI47I 

310 PRINT CHRHl9)iLEFTII« f NLUSPE(!)i 
"PLAY A NEW GAME" 

3 B0 PRINT CHRillYISLEFTitC^CYliSPCfClH 
*>*:LET DY=CY 

398 GET It: If II*" THEN SQT0 398 
428 IF CYO0Y THEN PRINT CMRK19); 
LEFTI(CI,OY)iSPCO)j" " 

1015 LET Ci*":F0R 1=1 TO no. oi linns 
on screen:LET ti=Ci+CHRiil7l:NEl? J 

Continued over I he page . 



Moving cu rsor men u 
Apple 

in lines 290, 300. 330. 330, 350, 360, 370. change 
the PRINT TAB( 1) command to PRINT TAB(2). 

770 H0HE 

310 HTAB 2:VTAB NLiPR'NT "PLAY A NEW GAYE" 
330 HTAB CIsVTAB EVsPflINT *'':LET QV=CV 
300 GET II: IF !«=■' 6BTQ 3?0 
420 IF CYOW THEN HTAB Dt: VTftB 0Y:°R]NT " 
in line 1000 set the variable CX lo 1. 

TRS-80 Colour Computer 

Deist? !me 370. 

3 3 0 PRINT 632*NL+1 , “PLflV A NEK SAME' 

360 PRINT &32*CY+CX , ■ >" » : LET 0Y=CY 
420 IF CYOOY THEN PRINT 832^*0, 1 "I 


BBC, Electron 

390 LET II=IHKEYH0hIF [!=" THEM SOTO 390 

Spectrum 

310 PRINT AT HL , I ; "PLAY ft NEW SANE" 

190 PRINT AT CY,C*S*>*:LET OY-CY 
390 IF iNKEYI="' THEN SOTO J90 
" 400 IF !NK£Yl=“ft“ AND CY'NL THEN LET CY=CY-SP 
410 iF iNKEY|=*I' AND CY<LC THEN LET CY=CY+SP 
420 IF QYOOY THEN PRINT AT OY, CHJ " r 
430 IF INKEUOCMTKI3I THEN GOTO 3fl0 
450 GOSL'B C* 100*400 
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